﻿<Serializable()> _
Public Class EseparacionVenta

#Region "           Atributos                       "
    Private _idProyecto As Int32
    Private _idEtapa As Int32
    Private _idSeparacionVenta As Int32
    Private _idPenMor As Int32
    Private _descPerMor As String
    Private _idTempSeparacionVenta As Int32
    Private _idCliente As Int32
    Private _nroDocumento As String         'es dcmto del cliente se cambio por el idCliente
    Private _idVendedor As Int32
    'Private _nombreVendedor As String    'se agredo nombrevendedor para recuperar en el archivo excel
    Private _ahorroPrevio As Int32
    Private _idEntidadFin As Int32
    Private _Ecorredora As Ecorredora
    Private _totalPrecioVenta As Decimal
    Private _totalSeparacion As Decimal
    Private _rutaScannerSeparacion As String
    Private _fchVencimiento As String
    Private _ctaInicial As Decimal
    Private _financiamiento As Decimal
    Private _saldo As Decimal
    Private _adicional As Decimal
    Private _descuento As Decimal
    Private _total As Decimal
    Private _observacion As String

    Private _vistoLegal As Int32
    Private _fchLegal As String
    Private _vistoComercial As Int32
    Private _fchComercial As String

    Private _fchOperacion As String 'es la fecha cuando se hizo la separación real
    Private _fchSeparacion As String
    Private _fchVenta As String
    Private _tpoGestion As Int32
    Private _descGestion As String
    Private _EentidadFin As EentidadFin

    Private _fchEntrega As String
    Private _fchCancelacionTemp As String
    Private _obsEntrega As String
    Private _Enotaria As Enotaria
    Private _nroKardex As String
    Private _nroTitulo As String
    Private _obsNotaria As String

    Private _estado As String
    Private _descEstado As String
    Private _idUsuario As Int32

    Private _Ecliente As Ecliente
    Private _EcliConyCoop As EcliConyCoop 'JFG
    Private _EcliApoderado As EcliApoderado 'JFG
    Private _telefonoFijo As String
    Private _descFormaPago As String
    Private _descFormaPagoCtaInicial As String
    Private _descFormaPagoSaldoFin As String

    Private _descEntidadFin As String

    Private _idNotaria As Int32

    '-------   MENU ATENCION CLIENTE  ------'
    Private _Eproyecto As Eproyecto
    Private _descProyecto As String
    Private _Eetapa As Eetapa
    Private _descEtapa As String
    Private _Evendedor As Evendedor
    Private _descSeguimiento As String
    Private _idProforma As Int32

    '-------    MENU REPORTE    ------------'
    Private _EtpoInmueble As EtpoInmueble
    Private _EedificioManz As EedificioManz
    Private _EunidInmobiliarias As EunidInmobiliarias
    Private _descTpoInmueble As String
    Private _nomEdiMzn As String
    Private _idUndInmob As Int32
    Private _valorVenta As Decimal

    Private _fchInicio As String
    Private _fchFin As String
    Private _idformaPago As Int32

    '------- Rpt Reporte consolidado  ---------'
    Private _descTpoUsoInmueble As String
    Private _idTpoInmueble As Int32

    '------- Rpt Pendientes Pagos  ---------'
    Private _fchCtaInicial As String
    Private _fchSaldoFinanciar As String
    Private _EformaPago As EformaPago
    Private _montoDeuda As Decimal
    '---------------------------------------'
    Private _filtro As String 'sirve para filtrar la separacion - venta

    '---------------------------------------'
    Private _correlativo As Int64

    '------------ Cobranzas  ---------------'
    Private _detalle As String

    Private _flagCoopropietario As String
    Private _nroPartida As String
    Private _lugarPartida As String
    Private _cliente As String
    Private _inmueble As String
    Private _flagVerificado As String
    Private _flagVerificadoLegal As String
    Private _flagVerificadoTesoreria As String
    Private _flagVerificadoComercial As String
    Private _nombreCompletoVendedor As String ' Nombrevendedor agregado por JFG
    Private _fechaFlagVerificado As String
    Private _razonSocial As String
    Private _RangoEdad As String
    Private _descComoseEntero As String
    Private _descNivelInteres As String
    Private _direccion As String
    Private _TpoUsoInmueble As String
    Private _montoInicial As Decimal
    Private _precioUnitario As Decimal
    Private _saldoFinanciar As Decimal
    Private _numOperacion As String
    Private _codigoSeparacion As String
    Private _nombreCliente As String
    Private _nombreVendedor As String
    Private _email As String
    Private _emailVendedor As String
    Private _codigoGenerado As String
    Private _PagoCI As String
    Private _fchMinuta As String
    Private _fchRegVenta As String
    Private _UsuarioAprobadorLegal As String
    Private _UsuarioAprobadorTesoreria As String
    Private _UsuarioAprobadorComercial As String
    Private _FechaVerificadoLegal As String
    Private _FechaVerificadoTesoreria As String

    Private _ID As String

    Private _dsctoSalaVentas As Decimal
    Private _dsctoFinanciamiento As Decimal
    Private _dsctoProgEspecial As Decimal
    Private _dsctoCantPropiedades As Decimal
    Private _dsctoParametrizacion As Decimal

    Private _fechaPagoSeparacion As String

    Private _formaPago As String
    Private _areaTechada As String
    Private _areaVendible As String

#End Region

#Region "           Propiedades                     "
    Public Property idProyecto() As Int32
        Get
            Return _idProyecto
        End Get
        Set(ByVal value As Int32)
            _idProyecto = value
        End Set
    End Property
    Public Property RangoEdad() As String
        Get
            Return _RangoEdad
        End Get
        Set(ByVal value As String)
            _RangoEdad = value
        End Set
    End Property
    Public Property descComoseEntero() As String
        Get
            Return _descComoseEntero
        End Get
        Set(ByVal value As String)
            _descComoseEntero = value
        End Set
    End Property
    Public Property descNivelInteres() As String
        Get
            Return _descNivelInteres
        End Get
        Set(ByVal value As String)
            _descNivelInteres = value
        End Set
    End Property
    Public Property direccion() As String
        Get
            Return _direccion
        End Get
        Set(ByVal value As String)
            _direccion = value
        End Set
    End Property
    Public Property TpoUsoInmueble() As String
        Get
            Return _TpoUsoInmueble
        End Get
        Set(ByVal value As String)
            _TpoUsoInmueble = value
        End Set
    End Property
    Public Property montoInicial() As Decimal
        Get
            Return _montoInicial
        End Get
        Set(ByVal value As Decimal)
            _montoInicial = value
        End Set
    End Property
    Public Property precioUnitario() As Decimal
        Get
            Return _precioUnitario
        End Get
        Set(ByVal value As Decimal)
            _precioUnitario = value
        End Set
    End Property
    Public Property saldoFinanciar() As Decimal
        Get
            Return _saldoFinanciar
        End Get
        Set(ByVal value As Decimal)
            _saldoFinanciar = value
        End Set
    End Property
    Public Property cliente() As String
        Get
            Return _cliente
        End Get
        Set(ByVal value As String)
            _cliente = value
        End Set
    End Property
    Public Property inmueble() As String
        Get
            Return _inmueble
        End Get
        Set(ByVal value As String)
            _inmueble = value
        End Set
    End Property
    Public Property idEtapa() As Int32
        Get
            Return _idEtapa
        End Get
        Set(ByVal value As Int32)
            _idEtapa = value
        End Set
    End Property
    Public Property idSeparacionVenta() As Int32
        Get
            Return _idSeparacionVenta
        End Get
        Set(ByVal value As Int32)
            _idSeparacionVenta = value
        End Set
    End Property
    Public Property idPenMor() As Int32
        Get
            Return _idPenMor
        End Get
        Set(ByVal value As Int32)
            _idPenMor = value
        End Set
    End Property
    Public Property descPenMor() As String
        Get
            Return _descPerMor
        End Get
        Set(ByVal value As String)
            _descPerMor = value
        End Set
    End Property
    Public Property idTempSeparacionVenta() As Int32
        Get
            Return _idTempSeparacionVenta
        End Get
        Set(ByVal value As Int32)
            _idTempSeparacionVenta = value
        End Set
    End Property
    Public Property idCliente() As Int32
        Get
            Return _idCliente
        End Get
        Set(ByVal value As Int32)
            _idCliente = value
        End Set
    End Property
    Public Property nroDocumento() As String
        Get
            Return _nroDocumento
        End Get
        Set(ByVal value As String)
            _nroDocumento = value
        End Set
    End Property
    Public Property idVendedor() As Int32
        Get
            Return _idVendedor
        End Get
        Set(ByVal value As Int32)
            _idVendedor = value
        End Set
    End Property
    Public Property nombreCompletoVendedor() As String  'nombrevendedor 
        Get
            Return _nombreCompletoVendedor
        End Get
        Set(ByVal value As String)
            _nombreCompletoVendedor = value
        End Set
    End Property
    Public Property ahorroPrevio() As Int32
        Get
            Return _ahorroPrevio
        End Get
        Set(ByVal value As Int32)
            _ahorroPrevio = value
        End Set
    End Property
    Public Property idEntidadFin() As Int32
        Get
            Return _idEntidadFin
        End Get
        Set(ByVal value As Int32)
            _idEntidadFin = value
        End Set
    End Property
    Public Property Ecorredora() As Ecorredora
        Get
            Return _Ecorredora
        End Get
        Set(ByVal value As Ecorredora)
            _Ecorredora = value
        End Set
    End Property
    Public Property totalPrecioVenta() As Decimal
        Get
            Return _totalPrecioVenta
        End Get
        Set(ByVal value As Decimal)
            _totalPrecioVenta = value
        End Set
    End Property
    Public Property totalSeparacion() As Decimal
        Get
            Return _totalSeparacion
        End Get
        Set(ByVal value As Decimal)
            _totalSeparacion = value
        End Set
    End Property
    Public Property rutaScannerSeparacion() As String
        Get
            Return _rutaScannerSeparacion
        End Get
        Set(ByVal value As String)
            _rutaScannerSeparacion = value
        End Set
    End Property
    Public Property fchVencimiento() As String
        Get
            Return _fchVencimiento
        End Get
        Set(ByVal value As String)
            _fchVencimiento = value
        End Set
    End Property
    Public Property ctaInicial() As Decimal
        Get
            Return _ctaInicial
        End Get
        Set(ByVal value As Decimal)
            _ctaInicial = value
        End Set
    End Property
    Public Property financiamiento() As Decimal
        Get
            Return _financiamiento
        End Get
        Set(ByVal value As Decimal)
            _financiamiento = value
        End Set
    End Property
    Public Property saldo() As Decimal
        Get
            Return _saldo
        End Get
        Set(ByVal value As Decimal)
            _saldo = value
        End Set
    End Property
    Public Property adicional() As Decimal
        Get
            Return _adicional
        End Get
        Set(ByVal value As Decimal)
            _adicional = value
        End Set
    End Property
    Public Property descuento() As Decimal
        Get
            Return _descuento
        End Get
        Set(ByVal value As Decimal)
            _descuento = value
        End Set
    End Property
    Public Property total() As Decimal
        Get
            Return _total
        End Get
        Set(ByVal value As Decimal)
            _total = value
        End Set
    End Property
    Public Property observacion() As String
        Get
            Return _observacion
        End Get
        Set(ByVal value As String)
            _observacion = value
        End Set
    End Property

    Public Property vistoLegal() As Int32
        Get
            Return _vistoLegal
        End Get
        Set(ByVal value As Int32)
            _vistoLegal = value
        End Set
    End Property
    Public Property fchLegal() As String
        Get
            Return _fchLegal
        End Get
        Set(ByVal value As String)
            _fchLegal = value
        End Set
    End Property
    Public Property victoComercial() As Int32
        Get
            Return _vistoComercial
        End Get
        Set(ByVal value As Int32)
            _vistoComercial = value
        End Set
    End Property
    Public Property fchComercial() As String
        Get
            Return _fchComercial
        End Get
        Set(ByVal value As String)
            _fchComercial = value
        End Set
    End Property

    Public Property fchOperacion() As String
        Get
            Return _fchOperacion
        End Get
        Set(ByVal value As String)
            _fchOperacion = value
        End Set
    End Property
    Public Property fchSeparacion() As String
        Get
            Return _fchSeparacion
        End Get
        Set(ByVal value As String)
            _fchSeparacion = value
        End Set
    End Property
    Public Property fchVenta() As String
        Get
            Return _fchVenta
        End Get
        Set(ByVal value As String)
            _fchVenta = value
        End Set
    End Property
    Public Property fchMinuta() As String
        Get
            Return _fchMinuta
        End Get
        Set(ByVal value As String)
            _fchMinuta = value
        End Set
    End Property
    Public Property tpoGestion() As Int32
        Get
            Return _tpoGestion
        End Get
        Set(ByVal value As Int32)
            _tpoGestion = value
        End Set
    End Property
    Public Property descGestion() As String
        Get
            Return _descGestion
        End Get
        Set(ByVal value As String)
            _descGestion = value
        End Set
    End Property
    Public Property EentidadFin() As EentidadFin
        Get
            Return _EentidadFin
        End Get
        Set(ByVal value As EentidadFin)
            _EentidadFin = value
        End Set
    End Property

    Public Property fchEntrega() As String
        Get
            Return _fchEntrega
        End Get
        Set(ByVal value As String)
            _fchEntrega = value
        End Set
    End Property
    Public Property fchCancelacionTemp() As String
        Get
            Return _fchCancelacionTemp
        End Get
        Set(ByVal value As String)
            _fchCancelacionTemp = value
        End Set
    End Property
    Public Property obsEntrega() As String
        Get
            Return _obsEntrega
        End Get
        Set(ByVal value As String)
            _obsEntrega = value
        End Set
    End Property
    Public Property Enotarias() As Enotaria
        Get
            Return _Enotaria
        End Get
        Set(ByVal value As Enotaria)
            _Enotaria = value
        End Set
    End Property
    Public Property nroKardex() As String
        Get
            Return _nroKardex
        End Get
        Set(ByVal value As String)
            _nroKardex = value
        End Set
    End Property
    Public Property nroTitulo() As String
        Get
            Return _nroTitulo
        End Get
        Set(ByVal value As String)
            _nroTitulo = value
        End Set
    End Property
    Public Property obsNotaria() As String
        Get
            Return _obsNotaria
        End Get
        Set(ByVal value As String)
            _obsNotaria = value
        End Set
    End Property

    Public Property estado() As String
        Get
            Return _estado
        End Get
        Set(ByVal value As String)
            _estado = value
        End Set
    End Property
    Public Property descEstado() As String
        Get
            Return _descEstado
        End Get
        Set(ByVal value As String)
            _descEstado = value
        End Set
    End Property
    Public Property idUsuario() As Int32
        Get
            Return _idUsuario
        End Get
        Set(ByVal value As Int32)
            _idUsuario = value
        End Set
    End Property
    Public Property Ecliente() As Ecliente
        Get
            Return _Ecliente
        End Get
        Set(ByVal value As Ecliente)
            _Ecliente = value
        End Set
    End Property
    Public Property EcliConyCoop() As EcliConyCoop
        Get
            Return _EcliConyCoop
        End Get
        Set(ByVal value As EcliConyCoop)
            _EcliConyCoop = value
        End Set
    End Property
    Public Property EcliApoderado() As EcliApoderado
        Get
            Return _EcliApoderado
        End Get
        Set(ByVal value As EcliApoderado)
            _EcliApoderado = value
        End Set
    End Property

    'Public Property nroDocumento() As String
    '    Get
    '        Return Ecliente.nroDocumento
    '    End Get
    '    Set(ByVal value As String)
    '        Ecliente.nroDocumento = value
    '    End Set
    'End Property    
    Public Property nombre() As String
        Get
            Return Ecliente.nombre
        End Get
        Set(ByVal value As String)
            Ecliente.nombre = value
        End Set
    End Property
    Public Property apePaterno() As String
        Get
            Return Ecliente.apePaterno
        End Get
        Set(ByVal value As String)
            Ecliente.apePaterno = value
        End Set
    End Property
    Public Property apeMaterno() As String
        Get
            Return Ecliente.apeMaterno
        End Get
        Set(ByVal value As String)
            Ecliente.apeMaterno = value
        End Set
    End Property
    Public Property telefonoFijo() As String
        Get
            Return _telefonoFijo
        End Get
        Set(ByVal value As String)
            _telefonoFijo = value
        End Set
    End Property
    Public Property descEntidadFin() As String
        Get
            Return _descEntidadFin
        End Get
        Set(ByVal value As String)
            _descEntidadFin = value
        End Set
    End Property

    Public Property idNotaria() As Int32
        Get
            Return _idNotaria
        End Get
        Set(ByVal value As Int32)
            _idNotaria = value
        End Set
    End Property

    '-------   MENU ATENCION CLIENTE  ------'
    Public Property Eproyecto() As Eproyecto
        Get
            Return _Eproyecto
        End Get
        Set(ByVal value As Eproyecto)
            _Eproyecto = value
        End Set
    End Property
    Public Property descProyecto() As String
        Get
            Return _descProyecto
        End Get
        Set(ByVal value As String)
            _descProyecto = value
        End Set
    End Property
    Public Property Eetapa() As Eetapa
        Get
            Return _Eetapa
        End Get
        Set(ByVal value As Eetapa)
            _Eetapa = value
        End Set
    End Property
    Public Property descEtapa() As String
        Get
            Return _descEtapa
        End Get
        Set(ByVal value As String)
            _descEtapa = value
        End Set
    End Property
    Public Property Evendedor() As Evendedor
        Get
            Return _Evendedor
        End Get
        Set(ByVal value As Evendedor)
            _Evendedor = value
        End Set
    End Property
    Public Property descSeguimiento() As String
        Get
            Return _descSeguimiento
        End Get
        Set(ByVal value As String)
            _descSeguimiento = value
        End Set
    End Property
    Public Property idProforma() As Int32
        Get
            Return _idProforma
        End Get
        Set(ByVal value As Int32)
            _idProforma = value
        End Set
    End Property

    '-------    MENU REPORTE    ------------'
    Public Property descTpoInmueble() As String
        Get
            Return _descTpoInmueble
        End Get
        Set(ByVal value As String)
            _descTpoInmueble = value
        End Set
    End Property
    Public Property nomEdiMzn() As String
        Get
            Return _nomEdiMzn
        End Get
        Set(ByVal value As String)
            _nomEdiMzn = value
        End Set
    End Property
    Public Property idUndInmob() As Int32
        Get
            Return _idUndInmob
        End Get
        Set(ByVal value As Int32)
            _idUndInmob = value
        End Set
    End Property
    Public Property valorVenta() As Decimal
        Get
            Return _valorVenta
        End Get
        Set(ByVal value As Decimal)
            _valorVenta = value
        End Set
    End Property
    Public Property telefonoCelular() As String
        Get
            Return Ecliente.telefonoCelular
        End Get
        Set(ByVal value As String)
            Ecliente.telefonoCelular = value
        End Set
    End Property
    Public Property EtpoInmueble() As EtpoInmueble
        Get
            Return _EtpoInmueble
        End Get
        Set(ByVal value As EtpoInmueble)
            _EtpoInmueble = value
        End Set
    End Property
    Public Property EedificioManz() As EedificioManz
        Get
            Return _EedificioManz
        End Get
        Set(ByVal value As EedificioManz)
            _EedificioManz = value
        End Set
    End Property
    Public Property EunidInmobiliarias() As EunidInmobiliarias
        Get
            Return _EunidInmobiliarias
        End Get
        Set(ByVal value As EunidInmobiliarias)
            _EunidInmobiliarias = value
        End Set
    End Property

    Public Property fchInicio() As String
        Get
            Return _fchInicio
        End Get
        Set(ByVal value As String)
            _fchInicio = value
        End Set
    End Property

    Public Property idFormaPago() As Int32
        Get
            Return _idformaPago
        End Get
        Set(ByVal value As Int32)
            _idformaPago = value
        End Set
    End Property

    Public Property fchFin() As String
        Get
            Return _fchFin
        End Get
        Set(ByVal value As String)
            _fchFin = value
        End Set
    End Property

    '------- Rpt Reporte consolidado  ---------'
    Public Property descTpoUsoInmueble() As String
        Get
            Return _descTpoUsoInmueble
        End Get
        Set(ByVal value As String)
            _descTpoUsoInmueble = value
        End Set
    End Property
    Public Property idTpoInmueble() As Int32
        Get
            Return _idTpoInmueble
        End Get
        Set(ByVal value As Int32)
            _idTpoInmueble = value
        End Set
    End Property

    '------- Rpt Pendientes Pagos  ---------'
    Public Property fchCtaInicial() As String
        Get
            Return _fchCtaInicial
        End Get
        Set(ByVal value As String)
            _fchCtaInicial = value
        End Set
    End Property
    Public Property fchSaldoFinanciar() As String
        Get
            Return _fchSaldoFinanciar
        End Get
        Set(ByVal value As String)
            _fchSaldoFinanciar = value
        End Set
    End Property
    Public Property EformaPago() As EformaPago
        Get
            Return _EformaPago
        End Get
        Set(ByVal value As EformaPago)
            _EformaPago = value
        End Set
    End Property
    Public Property descFormaPago() As String
        Get
            Return _descFormaPago
        End Get
        Set(ByVal value As String)
            _descFormaPago = value
        End Set
    End Property
    Public Property descFormaPagoCtaInicial() As String
        Get
            Return _descFormaPagoCtaInicial
        End Get
        Set(ByVal value As String)
            _descFormaPagoCtaInicial = value
        End Set
    End Property
    Public Property descFormaPagoSaldoFin() As String
        Get
            Return _descFormaPagoSaldoFin
        End Get
        Set(ByVal value As String)
            _descFormaPagoSaldoFin = value
        End Set
    End Property
    Public Property montoDeuda() As Decimal
        Get
            Return _montoDeuda
        End Get
        Set(ByVal value As Decimal)
            _montoDeuda = value
        End Set
    End Property
    '---------------------------------------'
    Public Property filtro() As String
        Get
            Return _filtro
        End Get
        Set(ByVal value As String)
            _filtro = value
        End Set
    End Property

    '---------------------------------------'
    Public Property correlativo() As Int64
        Get
            Return _correlativo
        End Get
        Set(ByVal value As Int64)
            _correlativo = value
        End Set
    End Property

    '------------ Cobranzas  ---------------'
    Public Property detalle() As String
        Get
            Return _detalle
        End Get
        Set(ByVal value As String)
            _detalle = value
        End Set
    End Property
    '---------------------------------------'
    Public Property flagCoopropietario() As String
        Get
            Return _flagCoopropietario
        End Get
        Set(ByVal value As String)
            _flagCoopropietario = value
        End Set
    End Property

    Public Property nroPartida() As String
        Get
            Return _nroPartida
        End Get
        Set(ByVal value As String)
            _nroPartida = value
        End Set
    End Property
    Public Property lugarPartida() As String
        Get
            Return _lugarPartida
        End Get
        Set(ByVal value As String)
            _lugarPartida = value
        End Set
    End Property
    Public Property flagVerificado() As String
        Get
            Return _flagVerificado
        End Get
        Set(ByVal value As String)
            _flagVerificado = value
        End Set
    End Property
    Public Property flagVerificadoLegal() As String
        Get
            Return _flagVerificadoLegal
        End Get
        Set(ByVal value As String)
            _flagVerificadoLegal = value
        End Set
    End Property
    Public Property flagVerificadoTesoreria() As String
        Get
            Return _flagVerificadoTesoreria
        End Get
        Set(ByVal value As String)
            _flagVerificadoTesoreria = value
        End Set
    End Property
    Public Property flagVerificadoComercial() As String
        Get
            Return _flagVerificadoComercial
        End Get
        Set(ByVal value As String)
            _flagVerificadoComercial = value
        End Set
    End Property
    Public Property fechaFlagVerificado() As String
        Get
            Return _fechaFlagVerificado
        End Get
        Set(ByVal value As String)
            _fechaFlagVerificado = value
        End Set
    End Property
    Public Property numOperacion() As String
        Get
            Return _numOperacion
        End Get
        Set(ByVal value As String)
            _numOperacion = value
        End Set
    End Property
    Public Property codigoSeparacion() As String
        Get
            Return _codigoSeparacion
        End Get
        Set(ByVal value As String)
            _codigoSeparacion = value
        End Set
    End Property
    Public Property nombreCliente() As String
        Get
            Return _nombreCliente
        End Get
        Set(ByVal value As String)
            _nombreCliente = value
        End Set
    End Property
    Public Property nombreVendedor() As String
        Get
            Return _nombreVendedor
        End Get
        Set(ByVal value As String)
            _nombreVendedor = value
        End Set
    End Property
    Public Property email() As String
        Get
            Return _email
        End Get
        Set(ByVal value As String)
            _email = value
        End Set
    End Property
    Public Property emailVendedor() As String
        Get
            Return _emailVendedor
        End Get
        Set(ByVal value As String)
            _emailVendedor = value
        End Set
    End Property
    Public Property codigoGenerado() As String
        Get
            Return _codigoGenerado
        End Get
        Set(ByVal value As String)
            _codigoGenerado = value
        End Set
    End Property
    Public Property fchRegVenta() As String
        Get
            Return _fchRegVenta
        End Get
        Set(ByVal value As String)
            _fchRegVenta = value
        End Set
    End Property
    Public Property PagoCI() As String
        Get
            Return _PagoCI
        End Get
        Set(ByVal value As String)
            _PagoCI = value
        End Set
    End Property

    Public Property UsuarioAprobadorLegal() As String
        Get
            Return _UsuarioAprobadorLegal
        End Get
        Set(ByVal value As String)
            _UsuarioAprobadorLegal = value
        End Set
    End Property
    Public Property UsuarioAprobadorTesoreria() As String
        Get
            Return _UsuarioAprobadorTesoreria
        End Get
        Set(ByVal value As String)
            _UsuarioAprobadorTesoreria = value
        End Set
    End Property
    Public Property UsuarioAprobadorComercial() As String
        Get
            Return _UsuarioAprobadorComercial
        End Get
        Set(ByVal value As String)
            _UsuarioAprobadorComercial = value
        End Set
    End Property
    Public Property FechaVerificadoLegal() As String
        Get
            Return _FechaVerificadoLegal
        End Get
        Set(ByVal value As String)
            _FechaVerificadoLegal = value
        End Set
    End Property
    Public Property FechaVerificadoTesoreria() As String
        Get
            Return _FechaVerificadoTesoreria
        End Get
        Set(ByVal value As String)
            _FechaVerificadoTesoreria = value
        End Set
    End Property

    ' ********************************************************************************************************************************************
    Public Property ID() As String
        Get
            Return _ID
        End Get
        Set(ByVal value As String)
            _ID = value
        End Set
    End Property

    Public Property dsctoSalaVentas() As Decimal
        Get
            Return _dsctoSalaVentas
        End Get
        Set(ByVal value As Decimal)
            _dsctoSalaVentas = value
        End Set
    End Property

    Public Property dsctoFinanciamiento() As Decimal
        Get
            Return _dsctoFinanciamiento
        End Get
        Set(ByVal value As Decimal)
            _dsctoFinanciamiento = value
        End Set
    End Property

    Public Property dsctoProgEspecial() As Decimal
        Get
            Return _dsctoProgEspecial
        End Get
        Set(ByVal value As Decimal)
            _dsctoProgEspecial = value
        End Set
    End Property

    Public Property dsctoCantPropiedades() As Decimal
        Get
            Return _dsctoCantPropiedades
        End Get
        Set(ByVal value As Decimal)
            _dsctoCantPropiedades = value
        End Set
    End Property

    Public Property dsctoParametrizacion() As Decimal
        Get
            Return _dsctoParametrizacion
        End Get
        Set(ByVal value As Decimal)
            _dsctoParametrizacion = value
        End Set
    End Property

    Public Property fechaPagoSeparacion() As String
        Get
            Return _fechaPagoSeparacion
        End Get
        Set(ByVal value As String)
            _fechaPagoSeparacion = value
        End Set
    End Property

    Public Property formaPago() As String
        Get
            Return _formaPago
        End Get
        Set(ByVal value As String)
            _formaPago = value
        End Set
    End Property

    Public Property areaTechada() As String
        Get
            Return _areaTechada
        End Get
        Set(ByVal value As String)
            _areaTechada = value
        End Set
    End Property

    Public Property areaVendible() As String
        Get
            Return _areaVendible
        End Get
        Set(ByVal value As String)
            _areaVendible = value
        End Set
    End Property

#End Region

#Region "           Propiedades Avanzadas           "
    Public ReadOnly Property NombresCompletos() As String
        Get
            Return nombre & " " & apePaterno & " " & apeMaterno
        End Get
    End Property
    Public ReadOnly Property NombresCompletosNroDoc() As String
        Get
            Return "[" & nroDocumento & "] " & nombre & " " & apePaterno & " " & apeMaterno
        End Get
    End Property
    Public ReadOnly Property NombresCompletosCodSepInmueble() As String
        Get
            Return "[" & codigoSeparacion & "] " & nombre & " " & apePaterno & " " & apeMaterno & " - " & inmueble
        End Get
    End Property

    '-------   MENU ATENCION CLIENTE  ------'
    Public ReadOnly Property StringidSeparacionVenta() As String
        Get
            Return "GESTION " + idSeparacionVenta.ToString + " :"
        End Get
    End Property
    Public ReadOnly Property NombresCompletoVendedor() As String
        Get
            Return Evendedor.apePaterno + " " + Evendedor.apeMaterno + ", " + Evendedor.nombre
        End Get
    End Property

    '-------    MENU REPORTE    ------------'
    Public ReadOnly Property Telefonos() As String
        Get
            Return telefonoFijo.ToString + "-" + telefonoCelular.ToString
        End Get
    End Property

    '-------   MENU REPORTE - VENTA   ------'
    Public ReadOnly Property nombreCompletosCliente() As String
        Get
            Return Ecliente.NombresCompletos
            'Return _Ecliente.NombresCompletos
        End Get
    End Property
    Public ReadOnly Property nombreCompletosClienteOrRazonSocial() As String
        Get
            If _Ecliente.EtpoDcmto.idTpoDcmto = 2 Then
                Return _Ecliente.razonSocial
            Else
                Return _Ecliente.NombresCompletos
            End If
        End Get
    End Property
    Public ReadOnly Property tpoDocumentoNumero() As String
        Get
            Return Ecliente.EtpoDcmto.descTpoDcmto.Trim + ": " + nroDocumento.Trim
            'Return _Ecliente.EtpoDcmto.descTpoDcmto.Trim + ": " + nroDocumento.Trim
        End Get
    End Property
    Public ReadOnly Property TelefonosCliente() As String
        Get
            Return _Ecliente.Telefonos
        End Get
    End Property
    Public ReadOnly Property nroDcmtoCliente() As String
        Get
            Return _Ecliente.nroDocumento
        End Get
    End Property
    Public ReadOnly Property nombreBloque()
        Get
            Return _EedificioManz.nomEdiMzn
        End Get
    End Property
    Public ReadOnly Property nroInmueble()
        Get
            Return _EunidInmobiliarias.nroInmueble.Trim
        End Get
    End Property

    '-------   MENU SEGUIMIENTO   ------'
    Public ReadOnly Property consultar()
        Get
            Return _EunidInmobiliarias.nroInmueble.Trim
        End Get
    End Property
    '---------------------------------------'
#End Region

#Region "           Contructores                    "
    Public Sub New()

    End Sub
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idSeparacionVenta As Int32, _
                   ByVal idCliente As Int32, ByVal idVendedor As Int32, ByVal ahorroPrevio As Int32, _
                   ByVal idEntidadFin As Int32, ByVal totalSeparacion As Decimal, ByVal fchVencimiento As String, _
                   ByVal ctaInicial As Decimal, ByVal financiamiento As Decimal, ByVal saldo As Decimal, _
                   ByVal adicional As Decimal, ByVal descuento As Decimal, ByVal total As Decimal, _
                   ByVal observacion As String, ByVal estado As String, ByVal idUsuario As Int32, _
                   ByVal idTpoDcmto As Int32, ByVal nroDocumento As String, ByVal edad As Int32, _
                   ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, _
                   ByVal fchNacimineto As String, ByVal idEstCivil As Int32, ByVal nroDependientes As Int32, _
                   ByVal sexo As Int32, ByVal idEstudio As Int32, ByVal nacionalidad As String, ByVal telefonoFijo As String, _
                   ByVal telefonoCelular As String, ByVal email As String, ByVal idUbigeo As String, _
                   ByVal urbanizacion As String, ByVal direccion As String, ByVal separacionBienes As Int32, _
                   ByVal nroPartida As String, ByVal idProfesion As Int32, ByVal idOcupacion As Int32, _
                   ByVal ruc As String, ByVal razonSocialLaboral As String, ByVal giro As String, _
                   ByVal idUbigeoLaboral As String, ByVal urbanizacionLaboral As String, ByVal direccionLaboral As String, _
                   ByVal telefonoLaboral As String, ByVal telefonoLaboral2 As String, ByVal puesto As String, _
                   ByVal antiguedadLaboral As Int32, ByVal ingresos As String)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idSeparacionVenta = idSeparacionVenta
        Me.idCliente = idCliente
        Me.idVendedor = idVendedor
        Me.ahorroPrevio = ahorroPrevio
        Me.idEntidadFin = idEntidadFin
        Me.totalSeparacion = totalSeparacion
        Me.fchVencimiento = fchVencimiento
        Me.ctaInicial = ctaInicial
        Me.financiamiento = financiamiento
        Me.saldo = saldo
        Me.adicional = adicional
        Me.descuento = descuento
        Me.total = total
        Me.observacion = observacion
        Me.estado = estado
        Me.idUsuario = idUsuario
        _Ecliente = New Ecliente
        _Ecliente.EtpoDcmto = New EtpoDcmto
        _Ecliente.EtpoDcmto.idTpoDcmto = idTpoDcmto
        _Ecliente.nroDocumento = nroDocumento
        _Ecliente.edad = edad
        _Ecliente.nombre = nombre
        _Ecliente.apePaterno = apePaterno
        _Ecliente.apeMaterno = apeMaterno
        _Ecliente.fchNacimineto = fchNacimineto
        _Ecliente.EestadoCivil = New EestadoCivil
        _Ecliente.EestadoCivil.idEstCivil = idEstCivil
        _Ecliente.nroDependientes = nroDependientes
        _Ecliente.sexo = sexo
        _Ecliente.Eestudio = New Eestudio
        _Ecliente.Eestudio.idEstudio = idEstudio
        _Ecliente.nacionalidad = nacionalidad
        _Ecliente.telefonoFijo = telefonoFijo
        _Ecliente.telefonoCelular = telefonoCelular
        _Ecliente.email = email
        _Ecliente.Eubigeo = New Eubigeo
        _Ecliente.Eubigeo.idUbigeo = idUbigeo
        _Ecliente.urbanizacion = urbanizacion
        _Ecliente.direccion = direccion
        _Ecliente.separacionBienes = separacionBienes
        _Ecliente.nroPartida = nroPartida
        '_Ecliente.idProfesion = idProfesion
        '_Ecliente.idOcupacion = idOcupacion
        _Ecliente.ruc = ruc
        _Ecliente.razonSocialLaboral = razonSocialLaboral
        _Ecliente.giro = giro
        '_Ecliente.idUbigeoLaboral = idUbigeoLaboral
        _Ecliente.urbanizacionLaboral = urbanizacionLaboral
        _Ecliente.direccionLaboral = direccionLaboral
        _Ecliente.telefonoLaboral = telefonoLaboral
        _Ecliente.telefonoLaboral2 = telefonoLaboral2
        _Ecliente.puesto = puesto
        _Ecliente.antiguedadLaboral = antiguedadLaboral
        _Ecliente.ingresos = ingresos
    End Sub

    '----- SEPARACION / VENTA FILTRA -----
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idSeparacionVenta As Int32, ByVal idCliente As Int32, _
                   ByVal idTpoDcmto As Int32, ByVal nroDocumento As String, ByVal edad As Int32, ByVal razonSocial As String, _
                   ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, ByVal fchNacimineto As String, _
                   ByVal idEstCivil As Int32, ByVal descEstCivil As String, ByVal nroDependientes As Int32, ByVal sexo As Int32, _
                   ByVal idEstudio As Int32, ByVal nacionalidad As String, ByVal telefonoFijo As String, ByVal telefonoCelular As String, _
                   ByVal email As String, ByVal idUbigeo As String, ByVal urbanizacion As String, ByVal direccion As String, _
                   ByVal separacionBienes As Int32, ByVal nroPartida As String, ByVal codPago As String, ByVal idProfesion As Int32, _
                   ByVal idOcupacion As Int32, ByVal descOcupacion As String, ByVal ruc As String, ByVal razonSocialLaboral As String, _
                   ByVal giro As String, ByVal idUbigeoLaboral As String, ByVal urbanizacionLaboral As String, ByVal direccionLaboral As String, _
                   ByVal telefonoUno As String, ByVal telefonoDos As String, ByVal puesto As String, ByVal antiguedadLaboral As Int32, _
                   ByVal ingresos As Decimal, ByVal telefonoCelularDos As String, ByVal idTpoPersona As Int32, ByVal idRelacion As Int32, _
                   ByVal rutaScannerSeparacion As String, ByVal idVendedor As Int32, ByVal nombreVendedor As String, ByVal apePatVendedor As String, _
                   ByVal apeMatVendedor As String, ByVal ahorroPrevio As Int32, ByVal idEntidadFin As Int32, ByVal idCorredora As Int32, _
                   ByVal fchOperacion As String, ByVal fchVencimiento As String, ByVal adicional As Decimal, ByVal descuento As Decimal, _
                   ByVal total As Decimal, ByVal observacion As String, ByVal OtroDocumento As String)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idSeparacionVenta = idSeparacionVenta
        Me.Ecliente = New Ecliente(idCliente, idTpoDcmto, nroDocumento, edad, razonSocial, _
                                   nombre, apePaterno, apeMaterno, fchNacimineto, _
                                   idEstCivil, descEstCivil, nroDependientes, sexo, _
                                   idEstudio, nacionalidad, telefonoFijo, telefonoCelular, _
                                   email, idUbigeo, urbanizacion, direccion, separacionBienes, _
                                   nroPartida, codPago, idProfesion, idOcupacion, descOcupacion, _
                                   ruc, razonSocialLaboral, giro, idUbigeoLaboral, _
                                   urbanizacionLaboral, direccionLaboral, telefonoUno, telefonoDos, _
                                   puesto, antiguedadLaboral, ingresos, telefonoCelularDos, _
                                   idTpoPersona, idRelacion, OtroDocumento)
        Me.rutaScannerSeparacion = rutaScannerSeparacion
        Me.Evendedor = New Evendedor(idVendedor, nombreVendedor, apePatVendedor, apeMatVendedor)
        Me.ahorroPrevio = ahorroPrevio
        Me.idEntidadFin = idEntidadFin
        Me.Ecorredora = New Ecorredora(idCorredora, "")
        'Me.Ecorredora.idCorredora = idCorredora
        Me.fchOperacion = fchOperacion
        Me.fchVencimiento = fchVencimiento
        Me.adicional = adicional
        Me.descuento = descuento
        Me.total = total
        Me.observacion = observacion

        Me.telefonoFijo = ""
        Me.telefonoCelular = ""
        Me.Ecliente.EtpoDcmto = New EtpoDcmto(idTpoDcmto, "")
        Me.nroDocumento = nroDocumento
        Me.EedificioManz = New EedificioManz(0, "")
        Me.EunidInmobiliarias = New EunidInmobiliarias()
        Me.EunidInmobiliarias.nroInmueble = ""
        Me.EunidInmobiliarias.EmodeloInmueble = New EmodeloInmueble(0, "")
        Me.EunidInmobiliarias.EmodeloInmueble.EtpoInmueble = New EtpoInmueble(0, "")
        Me.EunidInmobiliarias.descModelo = ""
        Me.EunidInmobiliarias.descTpoInmueble = ""
        Me.EunidInmobiliarias.nroInmueble = ""
        Me.EunidInmobiliarias.EediMazn = New EedificioManz(0, "")
        Me.EunidInmobiliarias.Ecliente = New Ecliente()
        Me.EunidInmobiliarias.Econyugue = New Ecliente()
    End Sub
    '----- VENTA / PENDIENTE  -----
    Public Sub New(ByVal idSeparacionVenta As Int32, ByVal idEtapa As Int32, ByVal idProyecto As Int32, ByVal descProyecto As String, ByVal fchOperacion As String, ByVal cliente As String, _
                   ByVal Inmueble As String, ByVal totalSeparacion As Decimal, ByVal ctaInicial As Decimal, ByVal financiamiento As Decimal, _
                   ByVal TotalVenta As Decimal, ByVal FechaFlagVerificado As String, ByVal descEtapa As String, ByVal nombreVendedor As String)

        Me.idSeparacionVenta = idSeparacionVenta
        Me.idProyecto = idProyecto
        Me.descProyecto = descProyecto
        Me.idEtapa = idEtapa
        Me.fchOperacion = fchOperacion
        Me.cliente = cliente
        Me.inmueble = Inmueble
        Me.totalSeparacion = totalSeparacion
        Me.ctaInicial = ctaInicial
        Me.financiamiento = financiamiento
        Me.totalPrecioVenta = TotalVenta
        Me.fechaFlagVerificado = FechaFlagVerificado
        Me.descEtapa = descEtapa
        Me.nombreVendedor = nombreVendedor
    End Sub
    '----- MAIL SEPARACION TEMPORAL  -----
    Public Sub New(ByVal nroDocumento As String, ByVal nombreCliente As String, ByVal email As String, ByVal idVendedor As Int32, _
                   ByVal nombreVendedor As String, ByVal emailVendedor As String, ByVal inmueble As String, ByVal montoSeparacion As Decimal, _
                   ByVal codigoSeparacion As String, ByVal codigoGenerado As String, ByVal fechaCancelacion As String)
        Me.nroDocumento = nroDocumento
        Me.nombreCliente = nombreCliente
        Me.email = email
        Me.nombreVendedor = nombreVendedor
        Me.emailVendedor = emailVendedor
        Me.inmueble = inmueble
        Me.totalSeparacion = montoSeparacion
        Me.codigoSeparacion = codigoSeparacion
        Me.codigoGenerado = codigoGenerado
        Me.fchCancelacionTemp = fechaCancelacion
    End Sub

    '----- CONSULTA CONSOLIDADO EXCEL  -----
    'Public Sub New(ByVal idProyecto As Int32, ByVal descProyecto As String, ByVal idEtapa As Int32, ByVal descEtapa As String, ByVal nomEdiMzn As String, _
    '               ByVal idSeparacionVenta As Int32, ByVal descTpoInmueble As String, ByVal nomModelo As String, ByVal nroInmueble As String, ByVal areaTechada As Decimal, _
    '               ByVal areaVendible As Decimal, ByVal nombreCliente As String, ByVal razonSocial As String, ByVal nroDocumento As String, _
    '               ByVal telefonoFijo As String, ByVal email As String, ByVal RangoEdad As String, ByVal descComoseEntero As String, _
    '               ByVal descNivelInteres As String, ByVal direccion As String, ByVal TpoUsoInmueble As String, ByVal montoInicial As Decimal, ByVal descuento As Decimal, _
    '               ByVal precioUnitario As Decimal, ByVal TotalPrecioVenta As Decimal, ByVal fchOperSep As String, ByVal fchVencimiento As String, ByVal totalSeparacion As Decimal, ByVal estado As String, _
    '               ByVal ctaInicial As Decimal, ByVal saldo As Decimal, ByVal saldoFinanciar As Decimal, ByVal descFormaPagoS As String, ByVal descEntidadFin As String, _
    '               ByVal tpoGestion As String, ByVal fchVenta As String, ByVal nombreCompletoVendedor As String)

    '    Me.idProyecto = idProyecto
    '    Me.descProyecto = descProyecto
    '    Me.idEtapa = idEtapa
    '    Me.descEtapa = descEtapa
    '    Me.idSeparacionVenta = idSeparacionVenta
    '    Me.EunidInmobiliarias = New EunidInmobiliarias
    '    Me.EunidInmobiliarias.descTpoInmueble = descTpoInmueble
    '    Me.EunidInmobiliarias.nomEdiMzn = nomEdiMzn
    '    Me.EunidInmobiliarias.nomModelo = nomModelo
    '    Me.EunidInmobiliarias.nroInmueble = nroInmueble
    '    Me.EunidInmobiliarias.areaTechada = areaTechada
    '    Me.EunidInmobiliarias.areaVendible = areaVendible
    '    Me.Ecliente = New Ecliente
    '    Me.Ecliente.nombre = nombreCliente
    '    Me.Ecliente.razonSocial = razonSocial
    '    Me.Ecliente.nroDocumento = nroDocumento
    '    Me.Ecliente.telefonoFijo = telefonoFijo
    '    Me.Ecliente.email = email
    '    Me.RangoEdad = RangoEdad
    '    Me.descComoseEntero = descComoseEntero
    '    Me.descNivelInteres = descNivelInteres
    '    Me.direccion = direccion
    '    Me.TpoUsoInmueble = TpoUsoInmueble
    '    Me.montoInicial = montoInicial
    '    Me.descuento = descuento
    '    Me.precioUnitario = precioUnitario
    '    Me.totalPrecioVenta = TotalPrecioVenta
    '    Me.fchOperacion = fchOperSep
    '    Me.fchVencimiento = fchVencimiento
    '    Me.totalSeparacion = totalSeparacion
    '    Me.estado = estado
    '    Me.ctaInicial = ctaInicial
    '    Me.saldo = saldo
    '    Me.saldoFinanciar = saldoFinanciar
    '    Me.descFormaPago = descFormaPago
    '    Me.descEntidadFin = descEntidadFin
    '    Me.tpoGestion = tpoGestion
    '    Me.fchVenta = fchVenta
    '    Me.nombreCompletoVendedor = nombreCompletoVendedor
    'End Sub
    '----- CONSULTA CONSOLIDADO  -----
    Public Sub New(ByVal descProyecto As String, ByVal descEtapa As String, ByVal nomEdiMzn As String, ByVal descTpoInmueble As String, _
                   ByVal nomModelo As String, ByVal nombreCliente As String, ByVal descuento As Decimal, ByVal TotalPrecioVenta As Decimal, _
                   ByVal fchOperSep As String, ByVal fchVencimiento As String, ByVal totalSeparacion As Decimal, ByVal estado As String, _
                   ByVal ctaInicial As Decimal, ByVal saldoFinanciar As Decimal, ByVal descFormaPagoS As String, ByVal fchVenta As String, _
                   ByVal tpoGestion As String, ByVal nombreCompletoVendedor As String)

        Me.descProyecto = descProyecto
        Me.descEtapa = descEtapa
        Me.EunidInmobiliarias = New EunidInmobiliarias
        Me.EunidInmobiliarias.descTpoInmueble = descTpoInmueble
        'Me.EunidInmobiliarias.nomEdiMzn = nomEdiMzn
        Me.nomEdiMzn = nomEdiMzn
        Me.EunidInmobiliarias.nomModelo = nomModelo
        Me.Ecliente = New Ecliente
        Me.Ecliente.nombre = nombreCliente
        Me.descuento = descuento
        Me.totalPrecioVenta = TotalPrecioVenta
        Me.fchOperacion = fchOperSep
        Me.fchVencimiento = fchVencimiento
        Me.totalSeparacion = totalSeparacion
        Me.estado = estado
        Me.ctaInicial = ctaInicial
        Me.saldoFinanciar = saldoFinanciar
        Me.descFormaPago = descFormaPagoS
        Me.fchVenta = fchVenta
        Me.descGestion = tpoGestion
        Me.nombreCompletoVendedor = nombreCompletoVendedor
    End Sub
    Public Sub New(ByVal idProyecto As Int16, ByVal descProyecto As String, ByVal idEtapa As Int16, ByVal descEtapa As String, ByVal idSeparacionVenta As Int16, _
                   ByVal nomEdiMzn As String, ByVal idTpoInmueble As Int32, ByVal descTpoInmueble As String, _
                   ByVal nomModelo As String, ByVal nroInmueble As String, ByVal areaTechada As Decimal, ByVal areaVendible As Decimal, _
                   ByVal areaTerrModelo As Decimal, ByVal nombreCliente As String, ByVal rangoEdad As String, ByVal descComoseEntero As String, _
                   ByVal descNivelInteres As String, ByVal direccion As String, ByVal descTpoUsoInmueble As String, ByVal monedaS As String, _
                   ByVal precioBase As Decimal, ByVal descuento As Decimal, ByVal TotalPrecioVenta As Decimal, ByVal NOperacion As String, _
                   ByVal fchOperSep As String, ByVal fchVencimiento As String, ByVal totalSeparacion As Decimal, ByVal estado As String, _
                   ByVal ctaInicial As Decimal, ByVal saldoFinanciar As Decimal, ByVal descFormaPagoS As String, ByVal fchVenta As String, _
                   ByVal tpoGestion As String, ByVal nombreCompletoVendedor As String, ByVal valorVenta As Decimal, ByVal descFormaPagoF As String, _
                   ByVal descEntidadFinS As String, ByVal DNI As String)

        Me.idProyecto = idProyecto
        Me.descProyecto = descProyecto
        Me.idEtapa = idEtapa
        Me.descEtapa = descEtapa
        Me.idSeparacionVenta = idSeparacionVenta
        _EunidInmobiliarias = New EunidInmobiliarias
        _EunidInmobiliarias.nomEdiMzn = nomEdiMzn
        Me.idTpoInmueble = idTpoInmueble
        _EunidInmobiliarias.descTpoInmueble = descTpoInmueble
        _nomEdiMzn = nomEdiMzn
        _EunidInmobiliarias.nomModelo = nomModelo
        _EunidInmobiliarias.nroInmueble = nroInmueble
        _EunidInmobiliarias.areaTechada = areaTechada
        _EunidInmobiliarias.areaVendible = areaVendible
        _EunidInmobiliarias.areaTerrModelo = areaTerrModelo
        Me.Ecliente = New Ecliente
        Me.Ecliente.nombre = nombreCliente
        Me.RangoEdad = rangoEdad
        Me.descComoseEntero = descComoseEntero
        Me.descNivelInteres = descNivelInteres
        Me.direccion = direccion
        Me.descTpoUsoInmueble = descTpoUsoInmueble
        _EunidInmobiliarias.descMoneda = monedaS
        _EunidInmobiliarias.precioBase = precioBase
        Me.descuento = descuento
        Me.totalPrecioVenta = TotalPrecioVenta
        Me.fchOperacion = fchOperSep
        Me.fchVencimiento = fchVencimiento
        Me.totalSeparacion = totalSeparacion
        Me.numOperacion = NOperacion
        Me.estado = estado
        Me.ctaInicial = ctaInicial
        Me.saldoFinanciar = saldoFinanciar
        Me.descFormaPago = descFormaPagoS
        Me.fchVenta = fchVenta
        Me.descGestion = tpoGestion
        Me.nombreCompletoVendedor = nombreCompletoVendedor
        Me.valorVenta = valorVenta
        Me.descFormaPagoSaldoFin = descFormaPagoF
        Me.descEntidadFin = descEntidadFinS
        Me.nroDocumento = DNI
    End Sub

    '----- SEPARACION / PENDIENTE MINUTA  -----
    Public Sub New(ByVal idSeparacionVenta As Int32, ByVal idEtapa As Int32, ByVal idProyecto As Int32, ByVal cliente As String, _
                   ByVal Inmueble As String, ByVal totalSeparacion As Decimal, ByVal ctaInicial As Decimal, ByVal financiamiento As Decimal, _
                   ByVal TotalVenta As Decimal, ByVal flagVerificadoLegal As String, ByVal flagVerificadoTesoreria As String, _
                   ByVal flagVerificadoComercial As String, ByVal fechaFlagVerificado As String, ByVal observacion As String, _
                   ByVal descProyecto As String, ByVal descEtapa As String, ByVal UsuarioAprobadorLegal As String, ByVal UsuarioAprobadorTesoreria As String, _
                   ByVal UsuarioAprobadorComercial As String, ByVal FechaVerificadoLegal As String, ByVal FechaVerificadoTesoreria As String)

        Me.idSeparacionVenta = idSeparacionVenta
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.cliente = cliente
        Me.inmueble = Inmueble
        Me.totalSeparacion = totalSeparacion
        Me.ctaInicial = ctaInicial
        Me.financiamiento = financiamiento
        Me.totalPrecioVenta = TotalVenta
        Me.flagVerificadoLegal = flagVerificadoLegal
        Me.flagVerificadoTesoreria = flagVerificadoTesoreria
        Me.flagVerificadoComercial = flagVerificadoComercial
        Me.fechaFlagVerificado = fechaFlagVerificado
        Me.observacion = observacion
        Me.descProyecto = descProyecto
        Me.descEtapa = descEtapa
        Me.UsuarioAprobadorLegal = UsuarioAprobadorLegal
        Me.UsuarioAprobadorTesoreria = UsuarioAprobadorTesoreria
        Me.UsuarioAprobadorComercial = UsuarioAprobadorComercial
        Me.FechaVerificadoLegal = FechaVerificadoLegal
        Me.FechaVerificadoTesoreria = FechaVerificadoTesoreria
    End Sub
    '----- SEPARACION / VENTA FILTRA + FLAGCOOPROPIETARIO -----
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idSeparacionVenta As Int32, ByVal idCliente As Int32, _
                   ByVal idTpoDcmto As Int32, ByVal nroDocumento As String, ByVal edad As Int32, ByVal razonSocial As String, _
                   ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, ByVal fchNacimineto As String, _
                   ByVal idEstCivil As Int32, ByVal descEstCivil As String, ByVal nroDependientes As Int32, ByVal sexo As Int32, _
                   ByVal idEstudio As Int32, ByVal nacionalidad As String, ByVal telefonoFijo As String, ByVal telefonoCelular As String, _
                   ByVal email As String, ByVal idUbigeo As String, ByVal urbanizacion As String, ByVal direccion As String, _
                   ByVal separacionBienes As Int32, ByVal nroPartida As String, ByVal codPago As String, ByVal idProfesion As Int32, _
                   ByVal idOcupacion As Int32, ByVal descOcupacion As String, ByVal ruc As String, ByVal razonSocialLaboral As String, _
                   ByVal giro As String, ByVal idUbigeoLaboral As String, ByVal urbanizacionLaboral As String, ByVal direccionLaboral As String, _
                   ByVal telefonoUno As String, ByVal telefonoDos As String, ByVal puesto As String, ByVal antiguedadLaboral As Int32, _
                   ByVal ingresos As Decimal, ByVal telefonoCelularDos As String, ByVal idTpoPersona As Int32, ByVal idRelacion As Int32, _
                   ByVal rutaScannerSeparacion As String, ByVal idVendedor As Int32, ByVal nombreVendedor As String, ByVal apePatVendedor As String, _
                   ByVal apeMatVendedor As String, ByVal ahorroPrevio As Int32, ByVal idEntidadFin As Int32, ByVal idCorredora As Int32, _
                   ByVal fchOperacion As String, ByVal fchVencimiento As String, ByVal adicional As Decimal, ByVal descuento As Decimal, _
                   ByVal total As Decimal, ByVal observacion As String, ByVal flagCoopropietario As String, ByVal OtroDocumento As String)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idSeparacionVenta = idSeparacionVenta
        Me.Ecliente = New Ecliente(idCliente, idTpoDcmto, nroDocumento, edad, razonSocial, _
                                   nombre, apePaterno, apeMaterno, fchNacimineto, _
                                   idEstCivil, descEstCivil, nroDependientes, sexo, _
                                   idEstudio, nacionalidad, telefonoFijo, telefonoCelular, _
                                   email, idUbigeo, urbanizacion, direccion, separacionBienes, _
                                   nroPartida, codPago, idProfesion, idOcupacion, descOcupacion, _
                                   ruc, razonSocialLaboral, giro, idUbigeoLaboral, _
                                   urbanizacionLaboral, direccionLaboral, telefonoUno, telefonoDos, _
                                   puesto, antiguedadLaboral, ingresos, telefonoCelularDos, _
                                   idTpoPersona, idRelacion, OtroDocumento)
        Me.rutaScannerSeparacion = rutaScannerSeparacion
        Me.Evendedor = New Evendedor(idVendedor, nombreVendedor, apePatVendedor, apeMatVendedor)
        Me.ahorroPrevio = ahorroPrevio
        Me.idEntidadFin = idEntidadFin
        Me.Ecorredora = New Ecorredora(idCorredora, "")
        'Me.Ecorredora.idCorredora = idCorredora
        Me.fchOperacion = fchOperacion
        Me.fchVencimiento = fchVencimiento
        Me.adicional = adicional
        Me.descuento = descuento
        Me.total = total
        Me.observacion = observacion
        Me.flagCoopropietario = flagCoopropietario
        Me.telefonoFijo = ""
        Me.telefonoCelular = ""
        Me.Ecliente.EtpoDcmto = New EtpoDcmto(idTpoDcmto, "")
        Me.nroDocumento = nroDocumento
        Me.EedificioManz = New EedificioManz(0, "")
        Me.EunidInmobiliarias = New EunidInmobiliarias()
        Me.EunidInmobiliarias.nroInmueble = ""
        Me.EunidInmobiliarias.EmodeloInmueble = New EmodeloInmueble(0, "")
        Me.EunidInmobiliarias.EmodeloInmueble.EtpoInmueble = New EtpoInmueble(0, "")
        Me.EunidInmobiliarias.descModelo = ""
        Me.EunidInmobiliarias.descTpoInmueble = ""
        Me.EunidInmobiliarias.nroInmueble = ""
        Me.EunidInmobiliarias.EediMazn = New EedificioManz(0, "")
        Me.EunidInmobiliarias.Ecliente = New Ecliente()
        Me.EunidInmobiliarias.Econyugue = New Ecliente()
    End Sub
    '----- SEPARACION / VENTA FILTRA + CONYUGE -----
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idSeparacionVenta As Int32, ByVal idCliente As Int32, _
                   ByVal idTpoDcmto As Int32, ByVal nroDocumento As String, ByVal edad As Int32, ByVal razonSocial As String, _
                   ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, ByVal fchNacimineto As String, _
                   ByVal idEstCivil As Int32, ByVal descEstCivil As String, ByVal nroDependientes As Int32, ByVal sexo As Int32, _
                   ByVal idEstudio As Int32, ByVal nacionalidad As String, ByVal telefonoFijo As String, ByVal telefonoCelular As String, _
                   ByVal email As String, ByVal idUbigeo As String, ByVal urbanizacion As String, ByVal direccion As String, _
                   ByVal separacionBienes As Int32, ByVal nroPartida As String, ByVal codPago As String, ByVal idProfesion As Int32, _
                   ByVal idOcupacion As Int32, ByVal descOcupacion As String, ByVal ruc As String, ByVal razonSocialLaboral As String, _
                   ByVal giro As String, ByVal idUbigeoLaboral As String, ByVal urbanizacionLaboral As String, ByVal direccionLaboral As String, _
                   ByVal telefonoUno As String, ByVal telefonoDos As String, ByVal puesto As String, ByVal antiguedadLaboral As Int32, _
                   ByVal ingresos As Decimal, ByVal telefonoCelularDos As String, ByVal idTpoPersona As Int32, ByVal idRelacion As Int32, _
                   ByVal rutaScannerSeparacion As String, ByVal idVendedor As Int32, ByVal nombreVendedor As String, ByVal apePatVendedor As String, _
                   ByVal apeMatVendedor As String, ByVal ahorroPrevio As Int32, ByVal idEntidadFin As Int32, ByVal idCorredora As Int32, _
                   ByVal fchOperacion As String, ByVal fchVencimiento As String, ByVal adicional As Decimal, ByVal descuento As Decimal, _
                   ByVal total As Decimal, ByVal observacion As String, ByVal flagCoopropietario As String, _
                   ByVal idClienteCony As Int32, ByVal idTpoDcmtoCony As Int32, ByVal nroDocumentoCony As String, ByVal edadCony As Int32, _
                   ByVal nombreCony As String, ByVal apePaternoCony As String, ByVal apeMaternoCony As String, ByVal fchNaciminetoCony As String, _
                   ByVal idEstCivilCony As Int32, ByVal nroDependientesCony As Int32, ByVal sexoCony As Int32, _
                   ByVal idEstudioCony As Int32, ByVal nacionalidadCony As String, ByVal telefonoFijoCony As String, ByVal telefonoCelularCony As String, _
                   ByVal emailCony As String, ByVal idUbigeoCony As String, ByVal urbanizacionCony As String, ByVal direccionCony As String, _
                   ByVal separacionBienesCony As Int32, ByVal nroPartidaCony As String, ByVal codPagoCony As String, ByVal idProfesionCony As Int32, _
                   ByVal idOcupacionCony As Int32, ByVal rucCony As String, ByVal razonSocialLaboralCony As String, _
                   ByVal giroCony As String, ByVal idUbigeoLaboralCony As String, ByVal urbanizacionLaboralCony As String, ByVal direccionLaboralCony As String, _
                   ByVal telefonoUnoCony As String, ByVal telefonoDosCony As String, ByVal puestoCony As String, ByVal antiguedadLaboralCony As Int32, _
                   ByVal ingresosCony As Decimal, ByVal idClienteApoderado As Int32, ByVal idTpoDcmtoApoderado As Int32, ByVal nroDocumentoApoderado As String, ByVal edadApoderado As Int32, _
                   ByVal nombreApoderado As String, ByVal apePaternoApoderado As String, ByVal apeMaternoApoderado As String, ByVal nacionalidadApoderado As String, _
                   ByVal emailApoderado As String, ByVal telefonoFijoApoderado As String, ByVal telefonoUnoApoderado As String, ByVal telefonoDosApoderado As String, ByVal idOcupacionApoderado As Int32, _
                   ByVal flagVerificado As String, ByVal OtroDocumento As String, ByVal OtroDocumentoCony As String, ByVal inmueble As String, ByVal codigoSeparacion As String, ByVal fchMinuta As String, _
                   ByVal fchVenta As String)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idSeparacionVenta = idSeparacionVenta
        Me.Ecliente = New Ecliente(idCliente, idTpoDcmto, nroDocumento, edad, razonSocial, _
                                   nombre, apePaterno, apeMaterno, fchNacimineto, _
                                   idEstCivil, descEstCivil, nroDependientes, sexo, _
                                   idEstudio, nacionalidad, telefonoFijo, telefonoCelular, _
                                   email, idUbigeo, urbanizacion, direccion, separacionBienes, _
                                   nroPartida, codPago, idProfesion, idOcupacion, descOcupacion, _
                                   ruc, razonSocialLaboral, giro, idUbigeoLaboral, _
                                   urbanizacionLaboral, direccionLaboral, telefonoUno, telefonoDos, _
                                   puesto, antiguedadLaboral, ingresos, telefonoCelularDos, _
                                   idTpoPersona, idRelacion, OtroDocumento)
        Me.EcliConyCoop = New EcliConyCoop(idClienteCony, idTpoDcmtoCony, nroDocumentoCony, edadCony, _
                                   nombreCony, apePaternoCony, apeMaternoCony, fchNaciminetoCony, _
                                   idEstCivilCony, nroDependientesCony, sexoCony, _
                                   idEstudioCony, nacionalidadCony, telefonoFijoCony, telefonoCelularCony, _
                                   emailCony, idUbigeoCony, urbanizacionCony, direccionCony, separacionBienesCony, _
                                   nroPartidaCony, idProfesionCony, idOcupacionCony, _
                                   rucCony, razonSocialLaboralCony, giroCony, idUbigeoLaboralCony, _
                                   urbanizacionLaboralCony, direccionLaboralCony, telefonoUnoCony, telefonoDosCony, _
                                   puestoCony, antiguedadLaboralCony, ingresosCony, OtroDocumentoCony)
        Me.EcliApoderado = New EcliApoderado(idClienteApoderado, idTpoDcmtoApoderado, nroDocumentoApoderado, _
                                   edadApoderado, nombreApoderado, apePaternoCony, apeMaternoCony, nacionalidadApoderado, _
                                   emailApoderado, telefonoFijoApoderado, telefonoUnoApoderado, telefonoDosApoderado, idOcupacionApoderado)
        Me.rutaScannerSeparacion = rutaScannerSeparacion
        Me.Evendedor = New Evendedor(idVendedor, nombreVendedor, apePatVendedor, apeMatVendedor)
        Me.ahorroPrevio = ahorroPrevio
        Me.idEntidadFin = idEntidadFin
        Me.Ecorredora = New Ecorredora(idCorredora, "")
        'Me.Ecorredora.idCorredora = idCorredora
        Me.fchOperacion = fchOperacion
        Me.fchVencimiento = fchVencimiento
        Me.adicional = adicional
        Me.descuento = descuento
        Me.total = total
        Me.observacion = observacion
        Me.flagCoopropietario = flagCoopropietario
        Me.telefonoFijo = ""
        Me.telefonoCelular = ""
        Me.Ecliente.EtpoDcmto = New EtpoDcmto(idTpoDcmto, "")
        Me.nroDocumento = nroDocumento
        Me.EedificioManz = New EedificioManz(0, "")
        Me.EunidInmobiliarias = New EunidInmobiliarias()
        Me.EunidInmobiliarias.nroInmueble = ""
        Me.EunidInmobiliarias.EmodeloInmueble = New EmodeloInmueble(0, "")
        Me.EunidInmobiliarias.EmodeloInmueble.EtpoInmueble = New EtpoInmueble(0, "")
        Me.EunidInmobiliarias.descModelo = ""
        Me.EunidInmobiliarias.descTpoInmueble = ""
        Me.EunidInmobiliarias.nroInmueble = ""
        Me.EunidInmobiliarias.EediMazn = New EedificioManz(0, "")
        Me.EunidInmobiliarias.Ecliente = New Ecliente()
        Me.EunidInmobiliarias.Econyugue = New Ecliente()
        Me.flagVerificado = flagVerificado
        Me.inmueble = inmueble
        Me.codigoSeparacion = codigoSeparacion
        Me.fchMinuta = fchMinuta
        Me.fchVenta = fchVenta
    End Sub
    '----- SEPARACION / VENTA FILTRA + CONYUGE -----
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idSeparacionVenta As Int32, ByVal idCliente As Int32, _
                   ByVal idTpoDcmto As Int32, ByVal nroDocumento As String, ByVal edad As Int32, ByVal razonSocial As String, _
                   ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, ByVal fchNacimineto As String, _
                   ByVal idEstCivil As Int32, ByVal descEstCivil As String, ByVal nroDependientes As Int32, ByVal sexo As Int32, _
                   ByVal idEstudio As Int32, ByVal nacionalidad As String, ByVal telefonoFijo As String, ByVal telefonoCelular As String, _
                   ByVal email As String, ByVal idUbigeo As String, ByVal urbanizacion As String, ByVal direccion As String, _
                   ByVal separacionBienes As Int32, ByVal nroPartida As String, ByVal codPago As String, ByVal idProfesion As Int32, _
                   ByVal idOcupacion As Int32, ByVal descOcupacion As String, ByVal ruc As String, ByVal razonSocialLaboral As String, _
                   ByVal giro As String, ByVal idUbigeoLaboral As String, ByVal urbanizacionLaboral As String, ByVal direccionLaboral As String, _
                   ByVal telefonoUno As String, ByVal telefonoDos As String, ByVal puesto As String, ByVal antiguedadLaboral As Int32, _
                   ByVal ingresos As Decimal, ByVal telefonoCelularDos As String, ByVal idTpoPersona As Int32, ByVal idRelacion As Int32, _
                   ByVal rutaScannerSeparacion As String, ByVal idVendedor As Int32, ByVal nombreVendedor As String, ByVal apePatVendedor As String, _
                   ByVal apeMatVendedor As String, ByVal ahorroPrevio As Int32, ByVal idEntidadFin As Int32, ByVal idCorredora As Int32, _
                   ByVal fchOperacion As String, ByVal fchVencimiento As String, ByVal adicional As Decimal, ByVal descuento As Decimal, _
                   ByVal total As Decimal, ByVal observacion As String, ByVal flagCoopropietario As String, _
                   ByVal idClienteCony As Int32, ByVal idTpoDcmtoCony As Int32, ByVal nroDocumentoCony As String, ByVal edadCony As Int32, _
                   ByVal nombreCony As String, ByVal apePaternoCony As String, ByVal apeMaternoCony As String, ByVal fchNaciminetoCony As String, _
                   ByVal idEstCivilCony As Int32, ByVal nroDependientesCony As Int32, ByVal sexoCony As Int32, _
                   ByVal idEstudioCony As Int32, ByVal nacionalidadCony As String, ByVal telefonoFijoCony As String, ByVal telefonoCelularCony As String, _
                   ByVal emailCony As String, ByVal idUbigeoCony As String, ByVal urbanizacionCony As String, ByVal direccionCony As String, _
                   ByVal separacionBienesCony As Int32, ByVal nroPartidaCony As String, ByVal codPagoCony As String, ByVal idProfesionCony As Int32, _
                   ByVal idOcupacionCony As Int32, ByVal rucCony As String, ByVal razonSocialLaboralCony As String, _
                   ByVal giroCony As String, ByVal idUbigeoLaboralCony As String, ByVal urbanizacionLaboralCony As String, ByVal direccionLaboralCony As String, _
                   ByVal telefonoUnoCony As String, ByVal telefonoDosCony As String, ByVal puestoCony As String, ByVal antiguedadLaboralCony As Int32, _
                   ByVal ingresosCony As Decimal, ByVal idClienteApoderado As Int32, ByVal idTpoDcmtoApoderado As Int32, ByVal nroDocumentoApoderado As String, ByVal edadApoderado As Int32, _
                   ByVal nombreApoderado As String, ByVal apePaternoApoderado As String, ByVal apeMaternoApoderado As String, ByVal nacionalidadApoderado As String, _
                   ByVal emailApoderado As String, ByVal telefonoFijoApoderado As String, ByVal telefonoUnoApoderado As String, ByVal telefonoDosApoderado As String, ByVal idOcupacionApoderado As Int32, _
                   ByVal flagVerificado As String, ByVal OtroDocumento As String, ByVal OtroDocumentoCony As String, ByVal inmueble As String, ByVal codigoSeparacion As String, _
                   ByVal fchVenta As String, ByVal fchMinuta As String, ByVal PagoCI As String, ByVal lugarPartida As String)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idSeparacionVenta = idSeparacionVenta
        Me.Ecliente = New Ecliente(idCliente, idTpoDcmto, nroDocumento, edad, razonSocial, _
                                   nombre, apePaterno, apeMaterno, fchNacimineto, _
                                   idEstCivil, descEstCivil, nroDependientes, sexo, _
                                   idEstudio, nacionalidad, telefonoFijo, telefonoCelular, _
                                   email, idUbigeo, urbanizacion, direccion, separacionBienes, _
                                   nroPartida, codPago, idProfesion, idOcupacion, descOcupacion, _
                                   ruc, razonSocialLaboral, giro, idUbigeoLaboral, _
                                   urbanizacionLaboral, direccionLaboral, telefonoUno, telefonoDos, _
                                   puesto, antiguedadLaboral, ingresos, telefonoCelularDos, _
                                   idTpoPersona, idRelacion, OtroDocumento)
        Me.EcliConyCoop = New EcliConyCoop(idClienteCony, idTpoDcmtoCony, nroDocumentoCony, edadCony, _
                                   nombreCony, apePaternoCony, apeMaternoCony, fchNaciminetoCony, _
                                   idEstCivilCony, nroDependientesCony, sexoCony, _
                                   idEstudioCony, nacionalidadCony, telefonoFijoCony, telefonoCelularCony, _
                                   emailCony, idUbigeoCony, urbanizacionCony, direccionCony, separacionBienesCony, _
                                   nroPartidaCony, idProfesionCony, idOcupacionCony, _
                                   rucCony, razonSocialLaboralCony, giroCony, idUbigeoLaboralCony, _
                                   urbanizacionLaboralCony, direccionLaboralCony, telefonoUnoCony, telefonoDosCony, _
                                   puestoCony, antiguedadLaboralCony, ingresosCony, OtroDocumentoCony)
        Me.EcliApoderado = New EcliApoderado(idClienteApoderado, idTpoDcmtoApoderado, nroDocumentoApoderado, _
                                   edadApoderado, nombreApoderado, apePaternoCony, apeMaternoCony, nacionalidadApoderado, _
                                   emailApoderado, telefonoFijoApoderado, telefonoUnoApoderado, telefonoDosApoderado, idOcupacionApoderado)
        Me.rutaScannerSeparacion = rutaScannerSeparacion
        Me.Evendedor = New Evendedor(idVendedor, nombreVendedor, apePatVendedor, apeMatVendedor)
        Me.ahorroPrevio = ahorroPrevio
        Me.idEntidadFin = idEntidadFin
        Me.Ecorredora = New Ecorredora(idCorredora, "")
        'Me.Ecorredora.idCorredora = idCorredora
        Me.fchOperacion = fchOperacion
        Me.fchVencimiento = fchVencimiento
        Me.adicional = adicional
        Me.descuento = descuento
        Me.total = total
        Me.observacion = observacion
        Me.flagCoopropietario = flagCoopropietario
        Me.telefonoFijo = telefonoFijo
        Me.telefonoCelular = telefonoCelular
        Me.Ecliente.EtpoDcmto = New EtpoDcmto(idTpoDcmto, "")
        Me.nroDocumento = nroDocumento
        Me.EedificioManz = New EedificioManz(0, "")
        Me.EunidInmobiliarias = New EunidInmobiliarias()
        Me.EunidInmobiliarias.nroInmueble = ""
        Me.EunidInmobiliarias.EmodeloInmueble = New EmodeloInmueble(0, "")
        Me.EunidInmobiliarias.EmodeloInmueble.EtpoInmueble = New EtpoInmueble(0, "")
        Me.EunidInmobiliarias.descModelo = ""
        Me.EunidInmobiliarias.descTpoInmueble = ""
        Me.EunidInmobiliarias.nroInmueble = ""
        Me.EunidInmobiliarias.EediMazn = New EedificioManz(0, "")
        Me.EunidInmobiliarias.Ecliente = New Ecliente()
        Me.EunidInmobiliarias.Econyugue = New Ecliente()
        Me.flagVerificado = flagVerificado
        Me.inmueble = inmueble
        Me.codigoSeparacion = codigoSeparacion
        Me.fchVenta = fchVenta
        Me.fchMinuta = fchMinuta
        Me.PagoCI = PagoCI
        Me.lugarPartida = lugarPartida
    End Sub
    '----- SEPARACION / TEMPORAL + CONYUGE -----
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idSeparacionVenta As Int32, ByVal idCliente As Int32, _
                   ByVal idTpoDcmto As Int32, ByVal nroDocumento As String, ByVal edad As Int32, ByVal razonSocial As String, _
                   ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, ByVal fchNacimineto As String, _
                   ByVal idEstCivil As Int32, ByVal descEstCivil As String, ByVal nroDependientes As Int32, ByVal sexo As Int32, _
                   ByVal idEstudio As Int32, ByVal nacionalidad As String, ByVal telefonoFijo As String, ByVal telefonoCelular As String, _
                   ByVal email As String, ByVal idUbigeo As String, ByVal urbanizacion As String, ByVal direccion As String, _
                   ByVal separacionBienes As Int32, ByVal nroPartida As String, ByVal codPago As String, ByVal idProfesion As Int32, _
                   ByVal idOcupacion As Int32, ByVal descOcupacion As String, ByVal ruc As String, ByVal razonSocialLaboral As String, _
                   ByVal giro As String, ByVal idUbigeoLaboral As String, ByVal urbanizacionLaboral As String, ByVal direccionLaboral As String, _
                   ByVal telefonoUno As String, ByVal telefonoDos As String, ByVal puesto As String, ByVal antiguedadLaboral As Int32, _
                   ByVal ingresos As Decimal, ByVal telefonoCelularDos As String, ByVal idTpoPersona As Int32, ByVal idRelacion As Int32, _
                   ByVal rutaScannerSeparacion As String, ByVal idVendedor As Int32, ByVal nombreVendedor As String, ByVal apePatVendedor As String, _
                   ByVal apeMatVendedor As String, ByVal ahorroPrevio As Int32, ByVal idEntidadFin As Int32, ByVal idCorredora As Int32, _
                   ByVal fchOperacion As String, ByVal fchVencimiento As String, ByVal adicional As Decimal, ByVal descuento As Decimal, _
                   ByVal total As Decimal, ByVal observacion As String, ByVal flagCoopropietario As String, _
                   ByVal idClienteCony As Int32, ByVal idTpoDcmtoCony As Int32, ByVal nroDocumentoCony As String, ByVal edadCony As Int32, _
                   ByVal nombreCony As String, ByVal apePaternoCony As String, ByVal apeMaternoCony As String, ByVal fchNaciminetoCony As String, _
                   ByVal idEstCivilCony As Int32, ByVal nroDependientesCony As Int32, ByVal sexoCony As Int32, _
                   ByVal idEstudioCony As Int32, ByVal nacionalidadCony As String, ByVal telefonoFijoCony As String, ByVal telefonoCelularCony As String, _
                   ByVal emailCony As String, ByVal idUbigeoCony As String, ByVal urbanizacionCony As String, ByVal direccionCony As String, _
                   ByVal separacionBienesCony As Int32, ByVal nroPartidaCony As String, ByVal codPagoCony As String, ByVal idProfesionCony As Int32, _
                   ByVal idOcupacionCony As Int32, ByVal rucCony As String, ByVal razonSocialLaboralCony As String, _
                   ByVal giroCony As String, ByVal idUbigeoLaboralCony As String, ByVal urbanizacionLaboralCony As String, ByVal direccionLaboralCony As String, _
                   ByVal telefonoUnoCony As String, ByVal telefonoDosCony As String, ByVal puestoCony As String, ByVal antiguedadLaboralCony As Int32, _
                   ByVal ingresosCony As Decimal, ByVal idClienteApoderado As Int32, ByVal idTpoDcmtoApoderado As Int32, ByVal nroDocumentoApoderado As String, ByVal edadApoderado As Int32, _
                   ByVal nombreApoderado As String, ByVal apePaternoApoderado As String, ByVal apeMaternoApoderado As String, ByVal nacionalidadApoderado As String, _
                   ByVal emailApoderado As String, ByVal telefonoFijoApoderado As String, ByVal telefonoUnoApoderado As String, ByVal telefonoDosApoderado As String, ByVal idOcupacionApoderado As Int32, _
                   ByVal flagVerificado As String, ByVal OtroDocumento As String, ByVal OtroDocumentoCony As String, ByVal inmueble As String, ByVal codigoSeparacion As String, ByVal fchCancelacion As String)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idSeparacionVenta = idSeparacionVenta
        Me.Ecliente = New Ecliente(idCliente, idTpoDcmto, nroDocumento, edad, razonSocial, _
                                   nombre, apePaterno, apeMaterno, fchNacimineto, _
                                   idEstCivil, descEstCivil, nroDependientes, sexo, _
                                   idEstudio, nacionalidad, telefonoFijo, telefonoCelular, _
                                   email, idUbigeo, urbanizacion, direccion, separacionBienes, _
                                   nroPartida, codPago, idProfesion, idOcupacion, descOcupacion, _
                                   ruc, razonSocialLaboral, giro, idUbigeoLaboral, _
                                   urbanizacionLaboral, direccionLaboral, telefonoUno, telefonoDos, _
                                   puesto, antiguedadLaboral, ingresos, telefonoCelularDos, _
                                   idTpoPersona, idRelacion, OtroDocumento)
        Me.EcliConyCoop = New EcliConyCoop(idClienteCony, idTpoDcmtoCony, nroDocumentoCony, edadCony, _
                                   nombreCony, apePaternoCony, apeMaternoCony, fchNaciminetoCony, _
                                   idEstCivilCony, nroDependientesCony, sexoCony, _
                                   idEstudioCony, nacionalidadCony, telefonoFijoCony, telefonoCelularCony, _
                                   emailCony, idUbigeoCony, urbanizacionCony, direccionCony, separacionBienesCony, _
                                   nroPartidaCony, idProfesionCony, idOcupacionCony, _
                                   rucCony, razonSocialLaboralCony, giroCony, idUbigeoLaboralCony, _
                                   urbanizacionLaboralCony, direccionLaboralCony, telefonoUnoCony, telefonoDosCony, _
                                   puestoCony, antiguedadLaboralCony, ingresosCony, OtroDocumentoCony)
        Me.EcliApoderado = New EcliApoderado(idClienteApoderado, idTpoDcmtoApoderado, nroDocumentoApoderado, _
                                   edadApoderado, nombreApoderado, apePaternoCony, apeMaternoCony, nacionalidadApoderado, _
                                   emailApoderado, telefonoFijoApoderado, telefonoUnoApoderado, telefonoDosApoderado, idOcupacionApoderado)
        Me.rutaScannerSeparacion = rutaScannerSeparacion
        Me.Evendedor = New Evendedor(idVendedor, nombreVendedor, apePatVendedor, apeMatVendedor)
        Me.ahorroPrevio = ahorroPrevio
        Me.idEntidadFin = idEntidadFin
        Me.Ecorredora = New Ecorredora(idCorredora, "")
        'Me.Ecorredora.idCorredora = idCorredora
        Me.fchOperacion = fchOperacion
        Me.fchVencimiento = fchVencimiento
        Me.adicional = adicional
        Me.descuento = descuento
        Me.total = total
        Me.observacion = observacion
        Me.flagCoopropietario = flagCoopropietario
        Me.telefonoFijo = ""
        Me.telefonoCelular = ""
        Me.Ecliente.EtpoDcmto = New EtpoDcmto(idTpoDcmto, "")
        Me.nroDocumento = nroDocumento
        Me.EedificioManz = New EedificioManz(0, "")
        Me.EunidInmobiliarias = New EunidInmobiliarias()
        Me.EunidInmobiliarias.nroInmueble = ""
        Me.EunidInmobiliarias.EmodeloInmueble = New EmodeloInmueble(0, "")
        Me.EunidInmobiliarias.EmodeloInmueble.EtpoInmueble = New EtpoInmueble(0, "")
        Me.EunidInmobiliarias.descModelo = ""
        Me.EunidInmobiliarias.descTpoInmueble = ""
        Me.EunidInmobiliarias.nroInmueble = ""
        Me.EunidInmobiliarias.EediMazn = New EedificioManz(0, "")
        Me.EunidInmobiliarias.Ecliente = New Ecliente()
        Me.EunidInmobiliarias.Econyugue = New Ecliente()
        Me.flagVerificado = flagVerificado
        Me.inmueble = inmueble
        Me.codigoSeparacion = codigoSeparacion
        Me.fchCancelacionTemp = fchCancelacion
    End Sub

    '----- SEPARACION TEMPORAL -----
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idSeparacionVenta As Int32, ByVal idProforma As Int32, ByVal idCliente As Int32, _
                   ByVal idTpoDcmto As Int32, ByVal nroDocumento As String, ByVal edad As Int32, ByVal razonSocial As String, _
                   ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, ByVal fchNacimineto As String, _
                   ByVal idEstCivil As Int32, ByVal descEstCivil As String, ByVal nroDependientes As Int32, ByVal sexo As Int32, _
                   ByVal idEstudio As Int32, ByVal nacionalidad As String, ByVal telefonoFijo As String, ByVal telefonoCelular As String, _
                   ByVal email As String, ByVal idUbigeo As String, ByVal urbanizacion As String, ByVal direccion As String, _
                   ByVal separacionBienes As Int32, ByVal nroPartida As String, ByVal codPago As String, ByVal idProfesion As Int32, _
                   ByVal idOcupacion As Int32, ByVal descOcupacion As String, ByVal ruc As String, ByVal razonSocialLaboral As String, _
                   ByVal giro As String, ByVal idUbigeoLaboral As String, ByVal urbanizacionLaboral As String, ByVal direccionLaboral As String, _
                   ByVal telefonoUno As String, ByVal telefonoDos As String, ByVal puesto As String, ByVal antiguedadLaboral As Int32, _
                   ByVal ingresos As Decimal, ByVal telefonoCelularDos As String, ByVal idTpoPersona As Int32, ByVal idRelacion As Int32, _
                   ByVal rutaScannerSeparacion As String, ByVal idVendedor As Int32, ByVal nombreVendedor As String, ByVal apePatVendedor As String, _
                   ByVal apeMatVendedor As String, ByVal ahorroPrevio As Int32, ByVal idEntidadFin As Int32, ByVal idCorredora As Int32, _
                   ByVal fchOperacion As String, ByVal fchVencimiento As String, ByVal fchCancelacionTemp As String, ByVal adicional As Decimal, _
                   ByVal descuento As Decimal, ByVal total As Decimal, ByVal observacion As String, ByVal OtroDocumento As String)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idSeparacionVenta = idSeparacionVenta
        Me.idProforma = idProforma
        Me.Ecliente = New Ecliente(idCliente, idTpoDcmto, nroDocumento, edad, razonSocial, _
                                   nombre, apePaterno, apeMaterno, fchNacimineto, _
                                   idEstCivil, descEstCivil, nroDependientes, sexo, _
                                   idEstudio, nacionalidad, telefonoFijo, telefonoCelular, _
                                   email, idUbigeo, urbanizacion, direccion, separacionBienes, _
                                   nroPartida, codPago, idProfesion, idOcupacion, descOcupacion, _
                                   ruc, razonSocialLaboral, giro, idUbigeoLaboral, _
                                   urbanizacionLaboral, direccionLaboral, telefonoUno, telefonoDos, _
                                   puesto, antiguedadLaboral, ingresos, telefonoCelularDos, _
                                   idTpoPersona, idRelacion, OtroDocumento)
        Me.rutaScannerSeparacion = rutaScannerSeparacion
        Me.Evendedor = New Evendedor(idVendedor, nombreVendedor, apePatVendedor, apeMatVendedor)
        Me.ahorroPrevio = ahorroPrevio
        Me.idEntidadFin = idEntidadFin
        Me.Ecorredora = New Ecorredora(idCorredora, "")
        'Me.Ecorredora.idCorredora = idCorredora
        Me.fchOperacion = fchOperacion
        Me.fchVencimiento = fchVencimiento
        Me.fchCancelacionTemp = fchCancelacionTemp
        Me.adicional = adicional
        Me.descuento = descuento
        Me.total = total
        Me.observacion = observacion

        Me.telefonoFijo = ""
        Me.telefonoCelular = ""
        Me.Ecliente.EtpoDcmto = New EtpoDcmto(idTpoDcmto, "")
        Me.nroDocumento = nroDocumento
        Me.EedificioManz = New EedificioManz(0, "")
        Me.EunidInmobiliarias = New EunidInmobiliarias()
        Me.EunidInmobiliarias.nroInmueble = ""
        Me.EunidInmobiliarias.EmodeloInmueble = New EmodeloInmueble(0, "")
        Me.EunidInmobiliarias.EmodeloInmueble.EtpoInmueble = New EtpoInmueble(0, "")
        Me.EunidInmobiliarias.descModelo = ""
        Me.EunidInmobiliarias.descTpoInmueble = ""
        Me.EunidInmobiliarias.nroInmueble = ""
        Me.EunidInmobiliarias.EediMazn = New EedificioManz(0, "")
        Me.EunidInmobiliarias.Ecliente = New Ecliente()
        Me.EunidInmobiliarias.Econyugue = New Ecliente()
    End Sub

    '-------    MENU SEGUIMIENTO    --------'
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idSeparacionVenta As Int32, ByVal fchSeparacion As String, _
                   ByVal fchVenta As String, ByVal nombre As String, ByVal apePaterno As String, _
                   ByVal apeMaterno As String, ByVal idTpoDcmto As Int32, ByVal descTpoDcmto As String, ByVal nroDocumento As String, _
                   ByVal telefonoFijo As String, ByVal financiamiento As Decimal, ByVal idEntidadFin As Int32, ByVal descEntidadFin As String, _
                   ByVal tpoGestion As Int32, ByVal descGestion As String, ByVal descSeguimiento As String, ByVal idUsuario As Int32)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idSeparacionVenta = idSeparacionVenta
        Me.fchSeparacion = fchSeparacion
        Me.fchVenta = fchVenta
        'Me.idCliente = idCliente
        Me.telefonoFijo = telefonoFijo
        _Ecliente = New Ecliente(idCliente, nombre, apePaterno, apeMaterno, idTpoDcmto, descTpoDcmto, nroDocumento, telefonoFijo)
        Me.nroDocumento = nroDocumento
        Me.financiamiento = financiamiento
        Me.idEntidadFin = idEntidadFin
        Me.descEntidadFin = descEntidadFin
        _EentidadFin = New EentidadFin(idEntidadFin, descEntidadFin)
        Me.tpoGestion = tpoGestion
        Me.descGestion = descGestion
        Me.descSeguimiento = descSeguimiento
        Me.idUsuario = idUsuario
    End Sub
    'MPE Se agrego parametro descFormaPago
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idSeparacionVenta As Int32, ByVal fchSeparacion As String, _
                   ByVal fchVenta As String, ByVal nombre As String, ByVal apePaterno As String, _
                   ByVal apeMaterno As String, ByVal idTpoDcmto As Int32, ByVal descTpoDcmto As String, ByVal nroDocumento As String, _
                   ByVal telefonoFijo As String, ByVal financiamiento As Decimal, ByVal idEntidadFin As Int32, ByVal descEntidadFin As String, _
                   ByVal descFormaPago As String, ByVal tpoGestion As Int32, ByVal descGestion As String, ByVal descSeguimiento As String, ByVal idUsuario As Int32, _
                   ByVal inmueble As String, ByVal codigoSeparacion As String)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idSeparacionVenta = idSeparacionVenta
        Me.fchSeparacion = fchSeparacion
        Me.fchVenta = fchVenta
        'Me.idCliente = idCliente
        Me.telefonoFijo = telefonoFijo
        _Ecliente = New Ecliente(idCliente, nombre, apePaterno, apeMaterno, idTpoDcmto, descTpoDcmto, nroDocumento, telefonoFijo)
        Me.nroDocumento = nroDocumento
        Me.financiamiento = financiamiento
        Me.idEntidadFin = idEntidadFin
        Me.descEntidadFin = descEntidadFin
        _EentidadFin = New EentidadFin(idEntidadFin, descEntidadFin)
        Me.descFormaPago = descFormaPago 'MPE
        Me.tpoGestion = tpoGestion
        Me.descGestion = descGestion
        Me.descSeguimiento = descSeguimiento
        Me.idUsuario = idUsuario
        Me.inmueble = inmueble
        Me.codigoSeparacion = codigoSeparacion
    End Sub
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idSeparacionVenta As Int32, ByVal fchEntrega As String, _
                   ByVal obsEntrega As String, ByVal idNotaria As Int32, ByVal descNotaria As String, ByVal nroKardex As String, _
                   ByVal nroTitulo As String, ByVal obsNotaria As String, ByVal idUsuario As Int32)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idSeparacionVenta = idSeparacionVenta
        Me.fchEntrega = fchEntrega
        Me.obsEntrega = obsEntrega
        Me.idNotaria = idNotaria
        Me.Enotarias = New Enotaria(idNotaria, descNotaria)
        Me.nroKardex = nroKardex
        Me.nroTitulo = nroTitulo
        Me.obsNotaria = obsNotaria
        Me.idUsuario = idUsuario
    End Sub

    '-------    MENU REPORTE    ------------'
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idSeparacionVenta As Int32, _
                ByVal idVendedor As Int32, ByVal ahorroPrevio As Int32, _
                ByVal idEntidadFin As Int32, ByVal totalSeparacion As Decimal, ByVal fchVencimiento As String, _
                ByVal ctaInicial As Decimal, ByVal financiamiento As Decimal, ByVal saldo As Decimal, _
                ByVal adicional As Decimal, ByVal descuento As Decimal, ByVal total As Decimal, _
                ByVal observacion As String, ByVal estado As String, ByVal idUsuario As Int32, ByVal fchSeparacion As String, _
                ByVal idTpoDcmto As Int32, ByVal nroDocumento As String, ByVal edad As Int32, _
                ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, _
                ByVal fchNacimineto As String, ByVal idEstCivil As Int32, ByVal nroDependientes As Int32, _
                ByVal sexo As Int32, ByVal idEstudio As Int32, ByVal nacionalidad As String, ByVal telefonoFijo As String, _
                ByVal telefonoCelular As String, ByVal email As String, ByVal idUbigeo As String, _
                ByVal urbanizacion As String, ByVal direccion As String, ByVal separacionBienes As Int32, _
                ByVal nroPartida As String, ByVal idProfesion As Int32, ByVal idOcupacion As Int32, _
                ByVal ruc As String, ByVal razonSocialLaboral As String, ByVal giro As String, _
                ByVal idUbigeoLaboral As String, ByVal urbanizacionLaboral As String, ByVal direccionLaboral As String, _
                ByVal telefonoLaboral As String, ByVal telefonoLaboral2 As String, ByVal puesto As String, _
                ByVal antiguedadLaboral As Int32, ByVal ingresos As String, ByVal descEntidadFin As String)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idSeparacionVenta = idSeparacionVenta
        Me.idCliente = idCliente
        Me.idVendedor = idVendedor
        Me.ahorroPrevio = ahorroPrevio
        Me.idEntidadFin = idEntidadFin
        Me.totalSeparacion = totalSeparacion
        Me.fchVencimiento = fchVencimiento
        Me.ctaInicial = ctaInicial
        Me.financiamiento = financiamiento
        Me.saldo = saldo
        Me.adicional = adicional
        Me.descuento = descuento
        Me.total = total
        Me.observacion = observacion
        Me.estado = estado
        Me.idUsuario = idUsuario
        Me.fchSeparacion = fchSeparacion
        _Ecliente = New Ecliente
        _Ecliente.EtpoDcmto = New EtpoDcmto
        _Ecliente.EtpoDcmto.idTpoDcmto = idTpoDcmto
        _Ecliente.nroDocumento = nroDocumento
        _Ecliente.edad = edad
        _Ecliente.nombre = nombre
        _Ecliente.apePaterno = apePaterno
        _Ecliente.apeMaterno = apeMaterno
        _Ecliente.fchNacimineto = fchNacimineto
        _Ecliente.EestadoCivil = New EestadoCivil
        _Ecliente.EestadoCivil.idEstCivil = idEstCivil
        _Ecliente.nroDependientes = nroDependientes
        _Ecliente.sexo = sexo
        _Ecliente.Eestudio = New Eestudio
        _Ecliente.Eestudio.idEstudio = idEstudio
        _Ecliente.nacionalidad = nacionalidad
        _Ecliente.telefonoFijo = telefonoFijo
        _Ecliente.telefonoCelular = telefonoCelular
        _Ecliente.email = email
        _Ecliente.Eubigeo = New Eubigeo
        _Ecliente.Eubigeo.idUbigeo = idUbigeo
        _Ecliente.urbanizacion = urbanizacion
        _Ecliente.direccion = direccion
        _Ecliente.separacionBienes = separacionBienes
        _Ecliente.nroPartida = nroPartida
        '_Ecliente.idProfesion = idProfesion
        '_Ecliente.idOcupacion = idOcupacion
        _Ecliente.ruc = ruc
        _Ecliente.razonSocialLaboral = razonSocialLaboral
        _Ecliente.giro = giro
        '_Ecliente.idUbigeoLaboral = idUbigeoLaboral
        _Ecliente.urbanizacionLaboral = urbanizacionLaboral
        _Ecliente.direccionLaboral = direccionLaboral
        _Ecliente.telefonoLaboral = telefonoLaboral
        _Ecliente.telefonoLaboral2 = telefonoLaboral2
        _Ecliente.puesto = puesto
        _Ecliente.antiguedadLaboral = antiguedadLaboral
        _Ecliente.ingresos = ingresos
        _EentidadFin = New EentidadFin
        _EentidadFin.descEntidadFin = descEntidadFin
    End Sub
    'Public Sub New(ByVal correlativo As Int64, ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idSeparacionVenta As Int32, _
    '               ByVal fchSeparacion As String, ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, _
    '               ByVal idTpoDcmto As Int32, ByVal nroDocumento As String, ByVal telefonoFijo As String, ByVal telefonoCelular As String, _
    '               ByVal descTpoInmueble As String, ByVal nomEdiMzn As String, ByVal idUndInmob As Int32, ByVal nroInmueble As String, _
    '               ByVal valorVenta As Decimal, ByVal totalSeparacion As Decimal, ByVal ctaInicial As Decimal, ByVal descEntidadFin As String, _
    '               ByVal fchVencimiento As String, ByVal financiamiento As Decimal, ByVal saldo As Decimal, ByVal adicional As Decimal, _
    '               ByVal descuento As Decimal, ByVal total As Decimal, ByVal observacion As String, ByVal estado As String, ByVal idUsuario As Int32)
    '    Me.correlativo = correlativo
    '    Me.idProyecto = idProyecto
    '    Me.idEtapa = idEtapa
    '    Me.idSeparacionVenta = idSeparacionVenta
    '    Me.fchSeparacion = fchSeparacion

    '    _Ecliente = New Ecliente
    '    _Ecliente.nombre = nombre
    '    _Ecliente.apePaterno = apePaterno
    '    _Ecliente.apeMaterno = apeMaterno
    '    _Ecliente.EtpoDcmto = New EtpoDcmto
    '    _Ecliente.EtpoDcmto.idTpoDcmto = idTpoDcmto
    '    _Ecliente.nroDocumento = nroDocumento
    '    _Ecliente.telefonoFijo = telefonoFijo
    '    _Ecliente.telefonoCelular = telefonoCelular

    '    Me.descTpoInmueble = descTpoInmueble
    '    _EedificioManz = New EedificioManz
    '    _EedificioManz.nomEdiMzn = nomEdiMzn

    '    _EunidInmobiliarias = New EunidInmobiliarias
    '    _EunidInmobiliarias.idUndInmob = idUndInmob
    '    _EunidInmobiliarias.nroInmueble = nroInmueble
    '    Me.valorVenta = valorVenta

    '    Me.totalSeparacion = totalSeparacion
    '    Me.ctaInicial = ctaInicial
    '    Me.descEntidadFin = descEntidadFin

    '    Me.fchVencimiento = fchVencimiento
    '    Me.financiamiento = financiamiento
    '    Me.saldo = saldo
    '    Me.adicional = adicional
    '    Me.descuento = descuento
    '    Me.total = total
    '    Me.observacion = observacion
    '    Me.estado = estado
    '    Me.idUsuario = idUsuario
    'End Sub

    '-------    MENU REPORTE SEPARACION    ------------'
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idSeparacionVenta As Int32, ByVal fchSeparacion As String, ByVal nombre As String, _
                   ByVal apePaterno As String, ByVal apeMaterno As String, ByVal razonSocial As String, ByVal idTpoDcmto As Int32, ByVal descTpoDcmto As String, _
                   ByVal nroDocumento As String, ByVal telefonoFijo As String, ByVal telefonoCelular As String, ByVal totalPrecioVenta As Decimal, ByVal totalSeparacion As Decimal, _
                   ByVal ctaInicial As Decimal, ByVal descFormaPago As String, ByVal descEntidadFin As String, ByVal fchVencimiento As String, ByVal financiamiento As Decimal, _
                   ByVal saldo As Decimal, ByVal adicional As Decimal, ByVal descuento As Decimal, ByVal total As Decimal, ByVal observacion As String, _
                   ByVal estado As String, ByVal idUsuario As Int32)
        'Me.correlativo = correlativo
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idSeparacionVenta = idSeparacionVenta
        Me.fchSeparacion = fchSeparacion
        _Ecliente = New Ecliente
        _Ecliente.nombre = nombre
        _Ecliente.apePaterno = apePaterno
        _Ecliente.apeMaterno = apeMaterno
        _Ecliente.razonSocial = razonSocial
        _Ecliente.EtpoDcmto = New EtpoDcmto(idTpoDcmto, descTpoDcmto)
        _Ecliente.nroDocumento = nroDocumento
        Me.nroDocumento = nroDocumento
        _Ecliente.telefonoFijo = telefonoFijo
        _Ecliente.telefonoCelular = telefonoCelular

        Me.totalPrecioVenta = totalPrecioVenta
        Me.totalSeparacion = totalSeparacion
        Me.ctaInicial = ctaInicial
        Me.descFormaPago = descFormaPago
        _EentidadFin = New EentidadFin
        _EentidadFin.descEntidadFin = descEntidadFin
        Me.descEntidadFin = descEntidadFin

        Me.fchVencimiento = fchVencimiento
        Me.financiamiento = financiamiento
        Me.saldo = saldo
        Me.adicional = adicional
        Me.descuento = descuento
        Me.total = total
        Me.observacion = observacion
        Me.estado = estado
        Me.idUsuario = idUsuario
    End Sub

    '-------    MENU REPORTE SEPARACION PARA EXPORTAR EXCEL   ------------'
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idSeparacionVenta As Int32, ByVal fchSeparacion As String, ByVal nombre As String, _
                   ByVal apePaterno As String, ByVal apeMaterno As String, ByVal razonSocial As String, ByVal idTpoDcmto As Int32, ByVal descTpoDcmto As String, _
                   ByVal nroDocumento As String, ByVal telefonoFijo As String, ByVal telefonoCelular As String, ByVal totalPrecioVenta As Decimal, ByVal totalSeparacion As Decimal, _
                   ByVal ctaInicial As Decimal, ByVal descFormaPago As String, ByVal descEntidadFin As String, ByVal fchVencimiento As String, ByVal financiamiento As Decimal, _
                   ByVal saldo As Decimal, ByVal adicional As Decimal, ByVal descuento As Decimal, ByVal total As Decimal, ByVal observacion As String, _
                   ByVal estado As String, ByVal idUsuario As Int32, ByVal nombreCompletoVendedor As String)
        'Me.correlativo = correlativo
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idSeparacionVenta = idSeparacionVenta
        Me.fchSeparacion = fchSeparacion
        Me.nombreCompletoVendedor = nombreCompletoVendedor
        _Ecliente = New Ecliente
        _Ecliente.nombre = nombre
        _Ecliente.apePaterno = apePaterno
        _Ecliente.apeMaterno = apeMaterno
        _Ecliente.razonSocial = razonSocial
        _Ecliente.EtpoDcmto = New EtpoDcmto(idTpoDcmto, descTpoDcmto)
        _Ecliente.nroDocumento = nroDocumento
        Me.nroDocumento = nroDocumento
        _Ecliente.telefonoFijo = telefonoFijo
        _Ecliente.telefonoCelular = telefonoCelular

        Me.totalPrecioVenta = totalPrecioVenta
        Me.totalSeparacion = totalSeparacion
        Me.ctaInicial = ctaInicial
        Me.descFormaPago = descFormaPago
        _EentidadFin = New EentidadFin
        _EentidadFin.descEntidadFin = descEntidadFin
        Me.descEntidadFin = descEntidadFin

        Me.fchVencimiento = fchVencimiento
        Me.financiamiento = financiamiento
        Me.saldo = saldo
        Me.adicional = adicional
        Me.descuento = descuento
        Me.total = total
        Me.observacion = observacion
        Me.estado = estado
        Me.idUsuario = idUsuario
    End Sub

    '-------    MENU REPORTE PENDIENTE DE PAGO ENCABEZADO ---'
    Public Sub New(ByVal correlativo As Int64, ByVal idSeparacionVenta As Int32, ByVal idPenMor As Int32, ByVal fchSeparacion As String, _
                   ByVal descGestion As String, ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, _
                   ByVal nroDocumento As String, ByVal telefonoFijo As String, ByVal telefonoCelular As String, ByVal detalle As String, _
                   ByVal montoDeuda As Decimal, ByVal descEntidadFin As String)
        Me.correlativo = correlativo
        Me.idSeparacionVenta = idSeparacionVenta
        Me.idPenMor = idPenMor
        If idPenMor = 1 Then
            descPenMor = "Pendiente"
        Else
            descPenMor = "Moroso"
        End If
        Me.fchSeparacion = fchSeparacion
        Me.descGestion = descGestion

        _Ecliente = New Ecliente
        _Ecliente.nombre = nombre
        _Ecliente.apePaterno = apePaterno
        _Ecliente.apeMaterno = apeMaterno
        _Ecliente.EtpoDcmto = New EtpoDcmto
        _Ecliente.nroDocumento = nroDocumento
        _Ecliente.telefonoFijo = telefonoFijo
        _Ecliente.telefonoCelular = telefonoCelular

        Me.detalle = detalle
        Me.montoDeuda = montoDeuda
        Me.descEntidadFin = descEntidadFin
    End Sub

    '-------    MENU REPORTE PENDIENTES DE PAGOS ------------'
    Public Sub New(ByVal correlativo As Int64, ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idSeparacionVenta As Int32, _
                   ByVal fchSeparacion As String, ByVal descGestion As String, ByVal nombre As String, ByVal apePaterno As String, _
                   ByVal apeMaterno As String, ByVal idTpoDcmto As Int32, ByVal nroDocumento As String, ByVal telefonoFijo As String, _
                   ByVal telefonoCelular As String, ByVal descTpoInmueble As String, ByVal nomEdiMzn As String, ByVal idUndInmob As Int32, _
                   ByVal nroInmueble As String, ByVal ctaInicial As Decimal, ByVal fchInicial As String, ByVal financiamiento As Decimal, _
                   ByVal fchFinanciamiento As String, ByVal idFormaPago As Int32, ByVal descFormaPago As String, ByVal descEntidadFin As String)
        Me.correlativo = correlativo
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idSeparacionVenta = idSeparacionVenta
        Me.fchSeparacion = fchSeparacion
        Me.descGestion = descGestion

        _Ecliente = New Ecliente
        _Ecliente.nombre = nombre
        _Ecliente.apePaterno = apePaterno
        _Ecliente.apeMaterno = apeMaterno
        _Ecliente.EtpoDcmto = New EtpoDcmto
        _Ecliente.EtpoDcmto.idTpoDcmto = idTpoDcmto
        _Ecliente.nroDocumento = nroDocumento
        _Ecliente.telefonoFijo = telefonoFijo
        _Ecliente.telefonoCelular = telefonoCelular

        Me.descTpoInmueble = descTpoInmueble
        _EedificioManz = New EedificioManz
        _EedificioManz.nomEdiMzn = nomEdiMzn

        _EunidInmobiliarias = New EunidInmobiliarias
        _EunidInmobiliarias.idUndInmob = idUndInmob
        _EunidInmobiliarias.nroInmueble = nroInmueble

        Me.ctaInicial = ctaInicial
        Me.fchCtaInicial = fchCtaInicial
        Me.financiamiento = financiamiento
        Me.fchSaldoFinanciar = fchSaldoFinanciar

        Me.EformaPago = New EformaPago(idFormaPago, descFormaPago)
        Me.descFormaPago = descFormaPago
        Me.descEntidadFin = descEntidadFin
    End Sub

    '-------    MENU REPORTE INGRESOS POR DEPOSITOS ---------'
    Public Sub New(ByVal correlativo As Int64, ByVal idSeparacionVenta As Int32, ByVal fchSeparacion As String, ByVal descGestion As String, _
                   ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, ByVal nroDocumento As String, _
                   ByVal telefonoFijo As String, ByVal telefonoCelular As String, ByVal detalle As String, ByVal totalSeparacion As Decimal, _
                   ByVal ctaInicial As Decimal, ByVal fchCtaInicial As String, ByVal descFormaPagoInicial As String, ByVal financiamiento As Decimal, _
                   ByVal fchSaldoFinanciar As String, ByVal descFormaPagoSaldo As String, ByVal descEntidadFin As String, ByVal numOperacion As String)
        Me.correlativo = correlativo
        Me.idSeparacionVenta = idSeparacionVenta
        Me.fchSeparacion = fchSeparacion
        Me.descGestion = descGestion

        _Ecliente = New Ecliente
        _Ecliente.nombre = nombre
        _Ecliente.apePaterno = apePaterno
        _Ecliente.apeMaterno = apeMaterno
        _Ecliente.EtpoDcmto = New EtpoDcmto
        _Ecliente.nroDocumento = nroDocumento
        _Ecliente.telefonoFijo = telefonoFijo
        _Ecliente.telefonoCelular = telefonoCelular

        Me.detalle = detalle
        Me.totalSeparacion = totalSeparacion
        Me.ctaInicial = ctaInicial
        If fchCtaInicial.Length = 8 Then
            Me.fchCtaInicial = Right(fchCtaInicial, 2) + "/" + fchCtaInicial.Substring(4, 2) + "/" + Left(fchCtaInicial, 4)
        Else
            Me.fchCtaInicial = ""
        End If
        Me.financiamiento = financiamiento
        If fchSaldoFinanciar.Length = 8 Then
            Me.fchSaldoFinanciar = Right(fchSaldoFinanciar, 2) + "/" + fchSaldoFinanciar.Substring(4, 2) + "/" + Left(fchSaldoFinanciar, 4)
        Else
            Me.fchSaldoFinanciar = ""
        End If

        Me.descFormaPagoCtaInicial = descFormaPagoInicial
        Me.descFormaPagoSaldoFin = descFormaPagoSaldo

        Me.descEntidadFin = descEntidadFin
        Me.numOperacion = numOperacion
    End Sub

    '-------   MENU REPORTE VENTA  ------'
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idSeparacionVenta As Int32, _
               ByVal fchVenta As String, ByVal nombre As String, ByVal apePaterno As String, ByVal apeMaterno As String, _
               ByVal idTpoDcmto As Int32, ByVal nroDocumento As String, ByVal telefonoFijo As String, _
               ByVal telefonoCelular As String, ByVal totalSeparacion As Decimal, ByVal fchSeparacion As String, _
               ByVal ctaInicial As Decimal, ByVal saldo As Decimal, ByVal descEntidadFin As String, _
               ByVal estado As String, ByVal idUsuario As Int32)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idSeparacionVenta = idSeparacionVenta
        Me.fchVenta = fchVenta

        _Ecliente = New Ecliente
        _Ecliente.nombre = nombre
        _Ecliente.apePaterno = apePaterno
        _Ecliente.apeMaterno = apeMaterno
        _Ecliente.EtpoDcmto = New EtpoDcmto
        _Ecliente.EtpoDcmto.idTpoDcmto = idTpoDcmto
        _Ecliente.nroDocumento = nroDocumento
        _Ecliente.telefonoFijo = telefonoFijo
        _Ecliente.telefonoCelular = telefonoCelular

        Me.totalSeparacion = totalSeparacion
        Me.fchSeparacion = fchSeparacion
        Me.ctaInicial = ctaInicial

        Me.saldo = saldo
        _EentidadFin = New EentidadFin
        _EentidadFin.descEntidadFin = descEntidadFin

        Me.estado = estado
        Me.idUsuario = idUsuario

    End Sub

    '-------   MENU AHORRO PREVIO | ATENCION CLIENTE    ------'
    Public Sub New(ByVal idProyecto As Int32, ByVal descProyecto As String, ByVal idEtapa As Int32, ByVal descEtapa As String, _
                   ByVal idSeparacionVenta As Int32, ByVal fchSeparacion As String, ByVal idVendedor As Int32, ByVal nombre As String, _
                   ByVal apePaterno As String, ByVal apeMaterno As String, ByVal totalSeparacion As Decimal, ByVal fchVencimiento As String, _
                   ByVal ctaInicial As Decimal, ByVal financiamiento As Decimal, ByVal saldo As Decimal, ByVal total As Decimal, _
                   ByVal descGestion As String, ByVal observacion As String)
        Me.idProyecto = idProyecto
        Me.descProyecto = descProyecto
        Me.Eproyecto = New Eproyecto(idProyecto, descProyecto)
        Me.idEtapa = idEtapa
        Me.descEtapa = descEtapa
        Me.Eetapa = New Eetapa(idEtapa, descEtapa)
        Me.idSeparacionVenta = idSeparacionVenta
        Me.fchSeparacion = fchSeparacion
        Me.Evendedor = New Evendedor(idVendedor, nombre, apePaterno, apeMaterno)
        Me.totalSeparacion = totalSeparacion
        Me.fchVencimiento = fchVencimiento
        Me.ctaInicial = ctaInicial
        Me.financiamiento = financiamiento
        Me.saldo = saldo
        Me.total = total
        Me.descGestion = descGestion
        Me.observacion = observacion
    End Sub

    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idSeparacionVenta As Int32, ByVal totalSeparacion As Decimal, _
             ByVal ctaInicial As Decimal, ByVal financiamiento As Decimal)
        Me.idProyecto = idProyecto
        Me.idEtapa = idEtapa
        Me.idSeparacionVenta = idSeparacionVenta
        Me.totalSeparacion = totalSeparacion
        Me.ctaInicial = ctaInicial
        Me.financiamiento = financiamiento
    End Sub


    '-------   MENU REPORTE - SEPARACION VENTA  ------'
    Public Sub New(ByVal idProyecto As Int32, ByVal idEtapa As Int32, ByVal idSeparacionVenta As Int32, ByVal fchVenta As String, ByVal nombre As String, _
                   ByVal apePaterno As String, ByVal apeMaterno As String, ByVal razonSocial As String, ByVal idTpoDcmto As Int32, ByVal descTpoDcmto As String, _
                   ByVal nroDocumento As String, ByVal telefonoFijo As String, ByVal telefonoCelular As String, ByVal totalPrecioVenta As Decimal, ByVal totalSeparacion As Decimal, _
                   ByVal fchSeparacion As String, ByVal ctaInicial As Decimal, ByVal saldo As Decimal, ByVal descFormaPago As String, ByVal descEntidadFin As String, _
                   ByVal fchVencimiento As String, ByVal financiamiento As Decimal, ByVal observacion As String)
        Me.idProyecto = idProyecto
        'Me.descProyecto = descProyecto
        Me.Eproyecto = New Eproyecto(idProyecto, descProyecto)
        Me.idEtapa = idEtapa
        'Me.descEtapa = descEtapa
        Me.Eetapa = New Eetapa(idEtapa, descEtapa)
        Me.idSeparacionVenta = idSeparacionVenta
        Me.fchVenta = fchVenta
        Me.Ecliente = New Ecliente(nombre, apePaterno, apeMaterno)
        Me.Ecliente.razonSocial = razonSocial
        Me.Ecliente.EtpoDcmto = New EtpoDcmto(idTpoDcmto, descTpoDcmto)
        Me.Ecliente.nroDocumento = nroDocumento.Trim
        Me.nroDocumento = nroDocumento.Trim
        Me.Ecliente.telefonoFijo = telefonoFijo
        Me.Ecliente.telefonoCelular = telefonoCelular
        Me.totalPrecioVenta = totalPrecioVenta
        Me.totalSeparacion = totalSeparacion
        Me.fchSeparacion = fchSeparacion
        Me.ctaInicial = ctaInicial
        Me.saldo = saldo
        Me.descFormaPago = descFormaPago
        Me.descEntidadFin = descEntidadFin
        Me.fchVencimiento = fchVencimiento
        Me.financiamiento = financiamiento
        Me.observacion = observacion
    End Sub

    '-------   MENU COBRANZA     -----------'
    Public Sub New(ByVal idSeparacionVenta As Int32, ByVal detalle As String)
        Me.idSeparacionVenta = idSeparacionVenta
        Me.detalle = detalle
    End Sub
    '---------------------------------------'

#End Region

    Private _bancoFinanciamiento As String
    Private _porcCuotaInicial As Decimal
    Private _tipoCredito As String
    Private _promocion As String
    Private _canalVenta1 As String
    Private _medios As String
    Private _programas As String
    Private _inversionVivienda As String
    Private _referidoDe As String
    Private _canalVenta2 As String
    Private _bancoEjecutivo As String
    Private _precioLista As Decimal
    Private _precioFinal As Decimal    
    Private _opcional As String

    Public Property bancoFinanciamiento() As String
        Get
            Return _bancoFinanciamiento
        End Get
        Set(ByVal value As String)
            _bancoFinanciamiento = value
        End Set
    End Property

    Public Property porcCuotaInicial() As Decimal
        Get
            Return _porcCuotaInicial
        End Get
        Set(ByVal value As Decimal)
            _porcCuotaInicial = value
        End Set
    End Property

    Public Property tipoCredito() As String
        Get
            Return _tipoCredito
        End Get
        Set(ByVal value As String)
            _tipoCredito = value
        End Set
    End Property

    Public Property promocion() As String
        Get
            Return _promocion
        End Get
        Set(ByVal value As String)
            _promocion = value
        End Set
    End Property

    Public Property canalVenta1() As String
        Get
            Return _canalVenta1
        End Get
        Set(ByVal value As String)
            _canalVenta1 = value
        End Set
    End Property

    Public Property medios() As String
        Get
            Return _medios
        End Get
        Set(ByVal value As String)
            _medios = value
        End Set
    End Property

    Public Property programas() As String
        Get
            Return _programas
        End Get
        Set(ByVal value As String)
            _programas = value
        End Set
    End Property

    Public Property inversionVivienda() As String
        Get
            Return _inversionVivienda
        End Get
        Set(ByVal value As String)
            _inversionVivienda = value
        End Set
    End Property

    Public Property referidoDe() As String
        Get
            Return _referidoDe
        End Get
        Set(ByVal value As String)
            _referidoDe = value
        End Set
    End Property

    Public Property canalVenta2() As String
        Get
            Return _canalVenta2
        End Get
        Set(ByVal value As String)
            _canalVenta2 = value
        End Set
    End Property

    Public Property bancoEjecutivo() As String
        Get
            Return _bancoEjecutivo
        End Get
        Set(ByVal value As String)
            _bancoEjecutivo = value
        End Set
    End Property

    Public Property precioLista() As Decimal
        Get
            Return _precioLista
        End Get
        Set(ByVal value As Decimal)
            _precioLista = value
        End Set
    End Property

    Public Property precioFinal() As Decimal
        Get
            Return _precioFinal
        End Get
        Set(ByVal value As Decimal)
            _precioFinal = value
        End Set
    End Property

    Public Property opcional() As String
        Get
            Return _opcional
        End Get
        Set(ByVal value As String)
            _opcional = value
        End Set
    End Property

    ' CONSOLIDADO - CAVH - 14.02.2013
    Public Sub New(ByVal idProyecto As Int16, ByVal descProyecto As String, ByVal idEtapa As Int16, ByVal descEtapa As String, _
                    ByVal idSeparacionVenta As Int16, _
                       ByVal nomEdiMzn As String, ByVal idTpoInmueble As Int32, ByVal descTpoInmueble As String, _
                       ByVal nomModelo As String, ByVal nroInmueble As String, ByVal areaTechada As Decimal, ByVal areaVendible As Decimal, _
                       ByVal areaTerrModelo As Decimal, ByVal nombreCliente As String, ByVal rangoEdad As String, ByVal descComoseEntero As String, _
                       ByVal descNivelInteres As String, ByVal direccion As String, ByVal descTpoUsoInmueble As String, ByVal monedaS As String, _
                       ByVal precioBase As Decimal, ByVal descuento As Decimal, ByVal TotalPrecioVenta As Decimal, ByVal NOperacion As String, _
                       ByVal fchOperSep As String, ByVal fchVencimiento As String, ByVal totalSeparacion As Decimal, ByVal estado As String, _
                       ByVal ctaInicial As Decimal, ByVal saldoFinanciar As Decimal, ByVal descFormaPagoS As String, ByVal fchVenta As String, _
                       ByVal tpoGestion As String, ByVal nombreCompletoVendedor As String, _
        ByVal valorVenta As Decimal, _
        ByVal descFormaPagoF As String, _
        ByVal descEntidadFinS As String, ByVal DNI As String, _
        ByVal estacionamientoModelo As String, _
        ByVal nroEstacionamiento As String, _
        ByVal estacionamientoModelo2 As String, _
        ByVal nroEstacionamiento2 As String, _
        ByVal nroDeposito As String, _
        ByVal precioDep As Decimal, _
        ByVal precioVentaDep As Decimal, _
        ByVal precioEstac1 As Decimal, _
        ByVal precioEstac2 As Decimal, _
        ByVal precioDeposito As Decimal, _
        ByVal precioTotalVenta As Decimal, _
        ByVal IDparam As String, _
        ByVal dsctoSalaVentas As Decimal, _
        ByVal dsctoFinanciamiento As Decimal, _
        ByVal dsctoProgEspecial As Decimal, _
        ByVal dsctoCantPropiedades As Decimal, _
        ByVal dsctoParametrizacion As Decimal, _
        ByVal fechaPagoSeparacion As String _
        )

        Me.idProyecto = idProyecto
        Me.descProyecto = descProyecto
        Me.idEtapa = idEtapa
        Me.descEtapa = descEtapa
        Me.idSeparacionVenta = idSeparacionVenta
        _EunidInmobiliarias = New EunidInmobiliarias
        _EunidInmobiliarias.nomEdiMzn = nomEdiMzn
        Me.idTpoInmueble = idTpoInmueble
        _EunidInmobiliarias.descTpoInmueble = descTpoInmueble
        _nomEdiMzn = nomEdiMzn
        _EunidInmobiliarias.nomModelo = nomModelo
        _EunidInmobiliarias.nroInmueble = nroInmueble
        _EunidInmobiliarias.areaTechada = areaTechada
        _EunidInmobiliarias.areaVendible = areaVendible
        _EunidInmobiliarias.areaTerrModelo = areaTerrModelo
        Me.Ecliente = New Ecliente
        Me.Ecliente.nombre = nombreCliente
        Me.RangoEdad = rangoEdad
        Me.descComoseEntero = descComoseEntero
        Me.descNivelInteres = descNivelInteres
        Me.direccion = direccion
        Me.descTpoUsoInmueble = descTpoUsoInmueble
        _EunidInmobiliarias.descMoneda = monedaS
        _EunidInmobiliarias.precioBase = precioBase
        Me.descuento = descuento
        Me.totalPrecioVenta = TotalPrecioVenta
        Me.fchOperacion = fchOperSep
        Me.fchVencimiento = fchVencimiento
        Me.totalSeparacion = totalSeparacion
        Me.numOperacion = NOperacion
        Me.estado = estado
        Me.ctaInicial = ctaInicial
        Me.saldoFinanciar = saldoFinanciar
        Me.descFormaPago = descFormaPagoS
        Me.fchVenta = fchVenta
        Me.descGestion = tpoGestion
        Me.nombreCompletoVendedor = nombreCompletoVendedor
        Me.valorVenta = valorVenta


        Me.descFormaPagoSaldoFin = descFormaPagoF
        Me.descEntidadFin = descEntidadFinS
        Me.nroDocumento = DNI

        ' Asignaciones de valores para el CONSOLIDADO
        _EunidInmobiliarias.estacionamientoModelo = estacionamientoModelo
        _EunidInmobiliarias.nroEstacionamiento = nroEstacionamiento
        _EunidInmobiliarias.estacionamientoModelo2 = estacionamientoModelo2
        _EunidInmobiliarias.nroEstacionamiento2 = nroEstacionamiento2
        _EunidInmobiliarias.nroDeposito = nroDeposito
        _EunidInmobiliarias.precioDep = precioDep
        _EunidInmobiliarias.precioVentaDep = precioVentaDep
        _EunidInmobiliarias.precioEstac1 = precioEstac1
        _EunidInmobiliarias.precioEstac2 = precioEstac2
        _EunidInmobiliarias.precioDeposito = precioDeposito
        _EunidInmobiliarias.precioTotalVenta = precioTotalVenta

        Me.ID = IDparam

        Me._dsctoSalaVentas = dsctoSalaVentas
        Me._dsctoFinanciamiento = dsctoFinanciamiento
        Me._dsctoProgEspecial = dsctoProgEspecial
        Me._dsctoCantPropiedades = dsctoCantPropiedades
        Me._dsctoParametrizacion = dsctoParametrizacion

        Me._fechaPagoSeparacion = fechaPagoSeparacion
    End Sub

    ' REPORTE DE VENTAS - 18.02.2013
    Public Sub New(ByVal Proyecto As String, ByVal Etapa As String, _
                   ByVal Torre As String, ByVal nroInmueble As String, _
                   ByVal nroEstacionamiento As String, ByVal nroEstacionamiento2 As String, _
                   ByVal nroDeposito As String, ByVal areaTechada As Decimal, _
                   ByVal areaTerraza As Decimal, ByVal nombreCliente As String, _
                   ByVal fchSeparacion As String, ByVal fchFirmaContrato As String, _
                   ByVal FormaPago As String, ByVal bancoFinanciamiento As String, ByVal porcCuotaInicial As Decimal, _
                   ByVal TipoCredito As String, ByVal Promocion As String, _
                   ByVal dsctoSalaVentas As Decimal, _
                   ByVal dsctoFinanciamiento As Decimal, _
                   ByVal dsctoProgEspecial As Decimal, _
                   ByVal dsctoCantPropiedades As Decimal, _
                   ByVal dsctoParametrizacion As Decimal, _
                   ByVal rangoEdad As String, ByVal distrito As String, ByVal canalVenta1 As String, ByVal medios As String, _
                   ByVal programas As String, ByVal inversionVivienda As String, ByVal referidoDe As String, _
                   ByVal canalVenta2 As String, ByVal ejecutivo As String, ByVal bancoEjecutivo As String, _
                   ByVal precioLista As Decimal, ByVal precioFinal As Decimal, ByVal precioEstac1 As Decimal, ByVal precioEstac2 As Decimal, _
                   ByVal precioDeposito As Decimal, ByVal precioTotal As Decimal, ByVal opcional As String)

        Me.descProyecto = Proyecto
        Me.descEtapa = Etapa
        Me.nomEdiMzn = Torre
        Me.areaTechada = areaTechada
        Me.areaVendible = areaTerraza

        _EunidInmobiliarias = New EunidInmobiliarias        
        _EunidInmobiliarias.nroInmueble = nroInmueble
        _EunidInmobiliarias.nroEstacionamiento = nroEstacionamiento
        _EunidInmobiliarias.nroEstacionamiento2 = nroEstacionamiento2
        _EunidInmobiliarias.nroDeposito = nroDeposito
        _EunidInmobiliarias.areaTechada = areaTechada
        _EunidInmobiliarias.areaVendible = areaTerraza

        Me.Ecliente = New Ecliente
        Me.Ecliente.nombre = nombreCliente
        Me.fchOperacion = fchSeparacion
        Me.fchMinuta = fchFirmaContrato
        Me.formaPago = FormaPago
        Me.bancoFinanciamiento = bancoFinanciamiento
        Me.porcCuotaInicial = porcCuotaInicial
        Me.tipoCredito = TipoCredito
        Me.promocion = TipoCredito
        Me._dsctoSalaVentas = dsctoSalaVentas
        Me._dsctoFinanciamiento = dsctoFinanciamiento
        Me._dsctoProgEspecial = dsctoProgEspecial
        Me._dsctoCantPropiedades = dsctoCantPropiedades
        Me._dsctoParametrizacion = dsctoParametrizacion
        Me.RangoEdad = rangoEdad
        Me.direccion = direccion
        Me.canalVenta1 = canalVenta1
        Me.medios = medios
        Me.programas = programas
        Me.inversionVivienda = inversionVivienda
        Me.referidoDe = referidoDe
        Me.canalVenta2 = canalVenta2
        Me.nombreCompletoVendedor = ejecutivo
        Me.bancoEjecutivo = bancoEjecutivo
        Me.precioLista = precioLista
        Me.precioFinal = precioFinal
        _EunidInmobiliarias.precioEstac1 = precioEstac1
        _EunidInmobiliarias.precioEstac2 = precioEstac2
        _EunidInmobiliarias.precioDeposito = precioDeposito
        Me.totalPrecioVenta = precioTotal
        Me.opcional = opcional
    End Sub

End Class
